hook на wm_parentnotify

[s_r_b]

Привет.
Мне нужно поставить ловушку на wm_parentnotify. Конкретнее на wm_create в параметре wparam. делфи 2010.
Вот приложение использующее ловушку:

hdll:= LoadLibrary('dir.dll');
  if hdll<>0 then @SetHook:= GetProcAddress(hdll,'SetHook') else
  ...;
  if longint(@SetHook)<>0 then isset:= SetHook(true,form1.Handle) else
  begin...

вот сама dll:

function HookProc(code: integer; wpar: WPARAM; lpar: LPARAM): LRESULT; stdcall;
var
    chwnd:         HWND;
    msg:             TMsg;//TCWPStruct;
begin
  if code=HC_ACTION then
  begin
    msg:= PMsg(lpar)^;
    if (loword(msg.message)=WM_PARENTNOTIFY) and (loword(msg.wParam)=WM_LBUTTONDBLCLK) THEN
     SendMessage(mainwnd,wm_access,0,integer(pchar('hooray')));
     result:= CallNextHookEx(hMyHook,code, wpar, lpar);
     end else result:= CallNextHookEx(hMyHook,code, wpar, lpar);
end;

function SetHook(hset: boolean; wnd: hwnd):boolean; export; stdcall;
begin
  if hset then mainwnd:= wnd;
  hMyHook:= SetWindowsHookEx(WH_GE
  TMESSAGE,@HookProc,HINSTANCE,0);...

Ловушка молчит. Что не так???
Заранее спасибо.

[BOBAH13]

Понравился мне один ответ
К примеру не понятно, хук вообще глобальный ? Где и как вызывается установка ? А то она у вас в воздухе весит.