hilfe!repeat-schleife mit abbruchfunktion

[Achtzig]

Vieleicht so:

Type
TForm1 = Class(TForm)
Private
FClicked :Boolean;
{...}
End;


Procedure TForm1.Button2Click(Sender:TObject);
Begin
FClicked:=True;
End;

Procedure TForm1.Schleifenfunktion;
Begin
Repeat
{ Irgendwas }
Application.ProcessMessages;
Until FClicked;
End;