Abbrechen einer Schleife mit Button

[Sherlock]

Ist doch ganz einfach. Aus allen Antworten mal die einfachste heraussuchen und schon bekommt man

Delphi-Quellcode:

procedure TForm1.b_startClick(Sender: TObject);
begin
repeat
sleep (200);
Application.ProcesMessages;
If KnopfGedrueckt then
  Exit;
until 1=0;
end;

Und noch fix für den Knopf was gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender:TObject);
begin
  KnopfGedrueckt := True;
end;

Edit: Das ist bei weitem nicht die schönste, sicherste, eleganteste Lösung des Problems, aber ein Anfang (und vielleicht auch Ende dieses Threads ).

Sherlock