TMenuItem - find a item in all TMenuItem

subItem := Menu.Items.Find('xpto')
if subItem = nill then
begin
showmessage('Item do not exists');
end;

function TFPrincipal.ProcuraItem(menuG: TMenuItem; str: String): TMenuItem;
var
  j: Integer;
  item,itemAux: TMenuItem;
  teste: String;
begin
  j:=0;

  //first level
  item:= menuG.Find(str);
  if item <> nil then
  begin
      //ShowMessage('find in the first level');
      Result:= item;
      Exit;
  end;

  //sub-levels
  while j < menuG.Count do
  begin

    teste := menuG.Items[j].Caption;

    item:= menuG.Items[j].Find(str);
    if item <> nil then
    begin
      //ShowMessage('find in the midle');
      //ShowMessage(item.Caption);
      Result:= item;
      Exit;
    end;

    itemAux :=  ProcuraItem(menuG.Items[j],str);
    //ShowMessage(item.Caption);
    if itemAux <> nil then
    begin
        Result := itemAux;
        Exit;
    end;
    Inc(j);
  end;

  //if not found, return nil
  Result:= nil;
end;