Öhm, das ist aber keine Schleife, schon gar keine
If-Schleife. Außerdem sollte man weder auf true prüfen noch benannte Instanzen verwenden. Nur weil die Klasse TForm1 heißt, bedeutet das ja nicht, dass die Instanzvariable zwingend Form1 heißen muss. Stattdessen besser self verwenden oder ganz weglassen.
[edit] Ich habe gerade erst gesehen, dass der Thread ja schon fast 4 Jahre alt ist
[/edit]