function SearchItems( ParentMenu: PMenu; var FromIdx: Integer ): PMenu;
 var I: Integer;
 begin
   Result := ParentMenu;
   if Id = HMenu( FromIdx ) then Exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
   if (Id >= 4096) and (DWORD( ParentMenu.FId ) = Id) then Exit; {>>>>>>>>>>>>}
   if ParentMenu.FMenuItems = nil then Exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
   for I := 0 to ParentMenu.FMenuItems.FCount-1 do
   begin
       Inc( FromIdx );
       Result := SearchItems( ParentMenu.FMenuItems.Items[ I ], FromIdx );
       if Result <> nil then Exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
   end;
   Result := nil;
 end;