procedure von außerhalb abbrechen

[nailor]

Stellt euch mal vor, ich hätte ein Programm, das macht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: byte;
begin
while true do
  begin
    inc(i);
    caption := inttostr(i);
  end;
end;

in echt macht es natürlich was Sinnvolleres, aber ich habe mir erlaubt, die Sache hierrauf zu vereinfachen...

Was ich jetzt will ist im Grunde ein Button,
- auf den ich klicken kann, während mein Programm zählt
- wäre notfalls möglich mit ProcessMessages, aber das scheint mir die Sache sehr langsam zu machen
- der dafür sorgt, dass das mein Programm aufhört zu zählen

damit wäre ich für den Anfang (hoch) zufrieden.

Michael