schleifen durchläufe aus editfeld !?

[v0rBiZ]

Code:

var i: integer;
laenge : string;
begin
  laenge := edit1.Text;
 for i := 0 to strtoint(laenge) do
begin
   Keybd_Event(VK_Down,   1, 0, 0);
   Sleep(Random(1000) + 1000);
  end;
 end;
procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
 begin
  if not (Key in ['0'..'9', Char(VK_BACK)])  then begin
    Application.MessageBox('nur zahlen erlaubt !','Fehler',48);
    Key := #0;
  end;
end;

end.