Hallo!
Mit einer Schleife wird es nicht gehen, da das Programm wärend deren Ausführung zuzusagen "gesperrt" ist, also keine Paint-Ereignisse auslöst.
Jetzt gibt es zwei Möglichkeiten.
Entweder du schreibst in deine Schleife
Application.HandleMessage; um Delphi dazuzubringen, auch wären deiner Schleife das Formular neu zu zeichnen, oder du benutzt einen
Timer.
Ich würde den Timer bevorzugen.
Einfach einen Timer auf die Form (Reiter
System) und auf
Enabled:= True setzen, sowie das Intervall in millisekunden einstellen und dann doppelklicken und den Code eingeben.
Einfach mal probieren oder in der
DP suchen.
Grüße
Faux
EDIT: Das Wort System hervorgehoben