В чём бага? Пытаюсь отловить сообщение hook'ом...

Вот код:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

HHOOK hk;

LRESULT CALLBACK HookProc(int nCode, WPARAM wParam, LPARAM lParam)
{
MessageBox(NULL,"Hook","Hook",MB_OK);
return CallNextHookEx(hk, nCode, wParam, lParam);
}

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
hk = SetWindowsHookEx(WH_KEYBOARD,&HookProc, NULL, 0);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
UnhookWindowsHookEx(hk);
}


При компиляции вылезает такая ошибка:

[C++ Error] Unit1.cpp(72): E2034 Cannot convert 'long (__stdcall *)(int,unsigned int,long)' to 'int (__stdcall *)()'
[C++ Error] Unit1.cpp(72): E2342 Type mismatch in parameter 'lpfn' (wanted 'int (__stdcall *)()', got 'long (__stdcall *)(int,unsigned int,long)')

Если при ссылке на HookProc не ставить амперсант &HookProc, такая же фигня! =(

Помогите плз, или подскажите альтернативный метод перехвата сообщений, лучше даже для конкретного окна обращаясь к нему через дескриптор...

Заранее спасибо!