registerHotKey funktioniert nicht

[dYnAm1c]

Also ich habe jetzt zumindest einen Teilerfolg,
im moment sieht es so aus, dass egal welche Taste ich drücke, der Button gedrückt wird. Aber das klappt jetzt zumindest schonmal Systemweit, was z.B. mit registerHotKey ja gar nicht im Spiel funktioniert hat.
Jetzt sieht der Code so aus:

Delphi-Quellcode:

function LowLevelKeyboardProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
  case nCode < 0 of
  True:
      exit;

  False:
      if (PostMessage(wParam, WM_KEYDOWN, VK_NUMPAD7, 0)) then
       Form1.Button1.Click;

  end;
end;