Schleife unterbrechen (break)

[thomasku]

Hi,

ich möchte gern eine schleife per Tastatureingabe unterbrechen.

Delphi-Quellcode:

 
 a:Boolean;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var b,c:Integer;
begin
   For b:=0 to 20000 do
   //sleep(50);
   If a=true then
     break
   else
   c:=b;
   label1.Caption:=inttostr(c);
end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key=VK_RETURN then
    a:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:=false;
end;

Habe es auch mit (Button1)KeyPress probiert.
Mfg Thomas