SetWindowsHookEx не могу перехватить нажатие клавиши.

[flug]

Вот пытаюсь перехватить нажатие клавиши например F3, но ничего не получается, подскажите что не так делаю, вот мой код.

var
  MyHookHandle:HHook = 0;

procedure OnKBHook(Code: Integer; wParam: LongWord; lParam: LongWord);              
begin                                                                          
  if Code < 0 then                                                              
    begin                                                                        
      CallNextHookEx(MyHookHandle,code,wParam,lparam);                          
      Exit;                                                                     
    end;                                                                        
                                                                            
  if (Code = HC_ACTION) and (wParam = VK_F3) 
       and ((LOWORD(lParam) and KF_UP) <> 0) then SHOWMESSAGE('Нажата клавиша F3');
 CallNextHookEx(MyHookHandle,code,wParam,lparam);                                
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 MyHookHandle := SetWindowsHookEx(WH_Keyboard, @OnKBHook, hInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnhookWindowsHookEx(MyHookHandle);
end;