Tastaturdruck Emulieren

[Pseudemys Nelsoni]

hoi alexander, jo das geht so halb, hatte das mal so versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 10000 do
  begin
    Application.ProcessMessages;
    keybd_event(ORD(VK_RETURN), 0, 0, 0);
    label1.Caption := IntToStr(StrToInt(label1.Caption)+1);
  end;
end;

aber nach ca 3 sek gibts nen zugriffsfehler?