Während Scchleife auf Button zugreifen

[Prym]

ich dachte das so

Delphi-Quellcode:

var
stop : boolean;

procedure TForm1.ButtonStartClick(Sender: TObject);
begin

stop := true;

repeat
Application.ProcessMessages;
//anweisung
until stop = false;

end;

procedure TForm1.ButtonStopClick(Sender: TObject);
begin
stop := false;
end;