Macros in Game ausführen mit Delphi?

[ScharfeMietze]

Erschreckender weise ist es bös einfach.

Delphi-Quellcode:

var
  aTask: ITask;
begin
aTask := TTask.Run(procedure
  begin
    keybd_event(VkKeyScan('d'), 0, KEY_EVENT, 0);
    Sleep(20);
    keybd_event(VkKeyScan('d'), 0, KEYEVENTF_KEYUP, 0);
  end);
end;

Damit ist es ohne Probleme möglich die Figur nach rechts zu bewegen. Ich gehe also von aus das ich auch weitere befehle so eingeben kann.
das einzige was ich noch brauche ist eine Function die mir die Tastatur logt, meine aktuelle ließt das Numpad nicht, sondern Loggt nur "1".
Wer da eine Idee hat immer her mit