Do while... warten bevor nächster Schritt

[Matt]

Hallo,
die Überschrift trifft irgendwie nicht das was ich meine, aber ich finde keine passende Beschreibung.

Also ich möchte in einer Do while Schleife

while not query1.eof do begin pro gefundenen Datensatz, diesen aufrufen und ein Fenster aufrufen und Eingaben vornehmen

Delphi-Quellcode:

form1 := Tform1.create(self);
form1.show;
form1.Action1Execute(Sender);

da ich mich ja in einer Schleife befinde möchte ich diese nun solange anhalten, bis form1 wieder geschlossen wird und erst dann

query1.next; ausführen.

Ist das irgendwie möglich?
Bin für Tipps und Anregungen sehr dankbar!

Gruß Matt