Wo soll hier ein Stack versteckt sein?
Und die Art der Schleife ist vollkommen egal, also egal ob For, While oder Repeat ... das macht keinen Unterschied
wenn es eigentlich nur die Berechnungen und Befehle innerhalb der Schleife geht.
Tipp: Debuggen
Man lege sich einen Haltepunkt an den Anfang der Schleife und wärend man die Schleife Befehl für Befehl durchgeht, schaut man sich die Werte der Variablen und Berechnungen an und vergleicht diese mit den Werten, welche man an dieser Stelle erwarten würde.
Wo soll hier eigentlich ein Labyrinth versteckt sein?
Ich seh nur Rechtecke, welche ineinander gezeichnet werden und das
zuoft.
Du hast doch bestimmt vergessen den Brush zu entfernen?
Also die Rechtecke sind doch bestimmt "gefüllt"?
Wenn ja dann werden anfangs Rechtecke ineinander gemalt und ab der hälfte fangen diese an sich wieder gegenseitig zu übermalen, bis das Letze alles wieder gelöscht/übermalt hat.
Füge mal diese 2 Zeilen ein und schau ob etwas und was passiert.
Delphi-Quellcode:
hoehe:=hoehe1 + hoehe;
//
Application.ProcessMessages;
Sleep(1000);
//
end;