Trainer für Spiel soll eine Taste simulieren

[Eljey]

Ich möchte ein Trainer programmieren, welcher alle 30sec auf die R Taste drückt um nachzuladen.

Ich hab folgenden Code:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  assanwnd := FindWindow(nil, 'Assan');
  if assanwnd = 0 then
  begin
    ShowMessage('Bitte starte zuerst Assan');
  end
  else
    ShowMessage('Gefunden');
end;

procedure TForm1.StartClick(Sender: TObject);
begin

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 PostMessage(assanwnd, WM_KEYDOWN,  VK_R, 0);
 PostMessage(assanwnd, WM_KEYUP,  VK_R, 0);
end;

Das funktioniert leider nicht. Kann mir jemand helfen?