Tastendruckbefehle

[Tommy0014]

Nabend,

ich hab zwar hier im forum und in google gesucht aber nichts gefunden... ich will einen timer machen und der soll dann immer nach ner gewissen zeit eine taste drücken.. die timer-befehle hab ich gefunden das klappt auch aber was muss ich nun schreiben damit z.b. nach 10 sekunden leertaste gedrückt wird... mein erster versuch:

Delphi-Quellcode:

var
  Form1: TForm1;
  i,m: Integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
 Knopf: Integer;
begin
  case m of
  1: begin
     Timer1.Interval := 1;
     Knopf := VK_SPACE;
     inc(m)
     end;
  2: begin
     Timer1.Interval := i;
     Label1.Caption := 'cool';
     m := 1;
     end;
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 i := StrToInt(edit1.Text);
 Timer1.Enabled := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  m := 1;
  Timer1.Enabled := false;
end;

end.

funktoniert leider nicht ich habs getestet in icq da müsste ich ja dann leerzeichen schreiben .. hat jmd ne lösung? danke schonmal für die antworten


mfg
tommy