registerHotKey funktioniert nicht

[dYnAm1c]

Sry für diesen Doppelpost aber durch editieren hätte das wascheinlich nie jemand bemerkt^^

Ich habe jetzt nach Tutorials von Assarbad einen Keyboard Hook gebaut, jetzt habe ich nurnoch ein Problem.
Ich würde gerne aus der DLL aus meine Buttons auf der Form ansteuern wenn ein HotKey betätigt wird.
Hier wie ich es versuche aber es nicht geht:

Delphi-Quellcode:

library KeyboardHook;

uses
  Windows,
  Dialogs,
  Main,
  Messages;

var
  HookHandle: Cardinal = 0;
  WindowHandle: Cardinal = 0;

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

    TRUE: 
        Exit; 

    FALSE:
        if (wParam = VK_NUMPAD7) then
        Main.Form1.Button1.Click;
  end;
end;