procedure von außerhalb abbrechen

[Luckie]

Nix Threads.

Delphi-Quellcode:

var
  Canceled: Boolean = FALSE;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Canceled := TRUE;
end;


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