Tastendruck im spiel simulieren

[sportkeks]

Hi ich hab ein problem und hoffe hier kann mir jemand weiter helfen ich möchte das wenn ich eine bestimmte taste drücke (in dem fall ",") das dan eine andere taste (in dem fall "´") ganz oft hintereinander im spiel gedrückt wird.

das ist mein code bis jetzt:

Delphi-Quellcode:

var
  Form1: TForm1;
  Pressed:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
keypreview:=true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_DECIMAL then Pressed:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if pressed = 1 then
  begin
    keybd_event(VKKeyScan('´'),0,0,0);
    keybd_event(239, 0, KEYEVENTF_KEYUP, 0);
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_DECIMAL then Pressed:=0;
end;

end.

Das Problem:
Der code funktioniert nur wenn ich im programm bin also wenn ich zb in ein memo oder so reindrücke und dan "," drücke.
Aber sobald ich in Notepad das machen will geht es nicht genaus so wenig wie im spiel.
weiß jemand da eine lösung?

würde mich sehr über eine antwort freuen

greetz
Sportkeks