Hook мыши на PopupMenu

{$IFDEF MOUSEHOOKCOUNTER}
    Hook := SetWindowsHookEx( WH_MOUSE, @MouseHookCounterProc, HInstance, GetCurrentThreadId() ) ;
    if Hook = 0 then
      ShowMessage('Не могу установить хук на мышь');
{$ENDIF}

if( nCode >= 0 )and( MsgID = WM_LBUTTONUP )then
  begin
    if pdata.hwnd <> 0 then
    begin
      len := StrGetClassName( pdata.hwnd, cls );
      if cls = 'TPUtilWindow' then //'#32768' //'TPopupItem' //'TPopupMenu'

parent := GetParent( pdata.hwnd ); // родитля нет: parent = 0
EnumChildWindows( pdata.hwnd, @EnumChildProc, 0 ); // детей нет
menu := GetMenu( pdata.hwnd );// меню тоже НЕТ

procedure TfmMain.PopupClickConter( var Msg: TMsg; var Handled: Boolean );
  var i:integer;
      miid:NativeUint;
      mi:TMenuItem;
begin
  if( Msg.message = WM_COMMAND )and( Hi( Msg.wParam )=0 )then
  begin
    miid := Lo( Msg.wParam );
    for i:=0 to PopupList.Count-1 do
    begin
      mi := TMenu( PopupList[i] ).FindItem( miid, fkCommand );
      if( mi <> nil )then
      begin
        OnClicked( mi );
        break;
      end;
    end;
  end;
end;

procedure TfmMain.PopupClickCounter( var Msg: TMsg; var Handled: Boolean );
  var i:integer;
      miid:NativeUint;
      mi:TMenuItem;
begin
  if( Msg.message = WM_COMMAND )and( HiWORD( Msg.wParam )=0 )then
  begin
    miid := LoWORD( Msg.wParam );
 
    for i:=0 to PopupList.Count-1 do
    begin
      mi := TMenu( PopupList[i] ).FindItem( miid, fkCommand );
      if( mi <> nil )then
      begin
        OnClickedPopup( mi );
        break;
      end;
    end;
 
  end;
end;