Schleife unterbrechen (break)

[fui-tak]

So müsste es eigentlich funktionieren:

Delphi-Quellcode:

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