Глобальный хук мыши

[lucifloki]

Подскажите, пожалуйста, почему при таком способе перехвата событий мыши, курсор(не самой игры, а системный) пропадает при запущенном 3D приложении

var
foo: TPoint;

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PEVENTMSG;
begin
 if Code >= 0 then begin
   result := 0;
   msg := Pointer(LParam);

    if msg.message = WM_MOUSEMOVE then
    begin
      GetCursorPos(foo);
      Form1.Caption := IntToStr(foo.X)
    end;

   end
    else
   result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure TForm1.bApplyMouseClick(Sender: TObject);
begin
      HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
end;