Verificar se PopupMenu esta aberto

  For I := 0 to (Self.ComponentCount - 1) do 
  begin 
    If Components[I] is TPopupMenu Then 
      if TForm(Application.Components[I] as TPopupMenu).Showing then 
        showmessage ('PopupMenu aberto'); 
  end;