Перехватить событие получения фокуса окном

[t232006]

Привет всем! Возникла задача получить дескриптор активного окна в рабочее окно приложения. Для этого соорудил простейшую dll

library WinFocus;

{$R *.res}
uses
  windows,
  Messages;

Type
TWinHandle = class
  private
  Fwnd: Hwnd;
  protected
  property hWnd: HWnd read Fwnd write Fwnd;
end;

var SysHook: hHook = 0;
    WindowHandle: TWinHandle;
    MyOwnHandle: HWnd;

function GetWinHandle:Hwnd export; stdcall;
begin
  result:=WindowHandle.hWnd;
end;

function CBTProc(Code: Integer; wParam: WParam; LParam: LParam):longint; export; stdcall;
var temp:Hwnd;
begin
   if code=HC_ACTION then
   begin
     temp:=getforegroundwindow;
     if temp<>MyOwnHandle then
       WindowHandle.hWnd:=temp;       //<------
        //TMsg(Pointer(lParam)^).hwnd;    
   end;
   result:=CallNexthookEx(SysHook, code, Wparam, LParam);
end;

procedure RunHook(hdl: HWnd) export; stdcall;
begin
    MyOwnHandle:=hdl;
    WindowHandle:=TWinHandle.Create;
    SysHook := SetWindowsHookEx(WH_GETMESSAGE, @CBTProc, hInstance, 0);
end;

procedure StopHook export; stdcall;
begin
  WindowHandle.Destroy;
  UnhookWindowsHookEx(SysHook);
  SysHook:=0;
end;

exports StopHook, RunHook, GetWinHandle;

end.

(я хотел сделать это через WH_CBT, но сообщение HCBT_SETFOCUS у меня в библиотеке не срабатывает).
Суть такова: когда происходит какая-то активность в каком-то стороннем окне, ловится его дескриптор. Пришлось завести класс, т.к. глобальная переменная внутри библиотеки постоянно обнуляется. Но с классом другая беда - эта конструкция срабатывает только тогда, когда строка, помеченная стрелкой, закомментирована. А в таком виде ловушка не срабатывает. Кто-нибудь в курсе, почему?