HiHo,
zu aller Erst:
Herzlich Willkommen in der DP! 
nun zu deinem Problem: Man zeichnet in Delphi auf eine Leinwand. Das Ding nennt sich in englisch also
Canvas. Solltet ihr schon mal gezeichnet haben, habt ihr sicherlich die Komponente
TImage verwendet. Diese stellt über
TImage.Canvas
alle Zeichenfunktionen bereit, die du so brauchst.
Wo bekommst du die Information her,
wie du auf das Canvas malst? Am besten mit der
OH von Delphi.
TCanvas,
TImage
Wenn du es geschafft hast überhaupt erst mal ein Rechteck zu zeichnen, dann kannst du bei jedem Schleifendurchlauf die Anzahl von Rechtecken zeichnen lassen, die der Zähler als Wert hat.
Ich könnte jetzt noch stundenlang weiterschreiben, da ich aber nicht weiß, ob ich mit
Prozeduren und
Parameterübergabe bei dir böhmische Dörfer erzeuge, lass' ich dich einfach mal ein wenig experimentieren, bis du an die nächste, unüberwindbare Hürde kommst.
MfG,
hanselmansel
Es gibt nur sehr wenige Probleme auf dieser Welt, die sich nicht mit einigen hundert Gramm Sprengstoff lösen ließen.