Zeichenketten schreiben lassen

[Jake]

Hallo DP

Ich habe für meinen Keybinder folgenden Code zusammengestellt:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var Key:integer;
begin

if GetAsyncKeyState(Vk_F2)<>0 then begin
  if GetAsyncKeyState(ord('1'))<>0 then begin
      key:=VKKEYscan('T');
     keybd_event(key, 0,0,0);
     keybd_event(key,0,2,0);

  end
end;

end;

Wenn ich F2+1 drücke schreibt er jede Sekunde ein "T".

Nun will ich aber einen Text aus einem Edit Feld (z.B. Edit1.Text) per Tastendruck (F2+1) automatisch geschrieben haben.

Hat jemand eine Ahnung wie man das schreibt?

Ich dachte da an eine Schleife, die die Zeichen hintereinander abfragt.