Delphi 12 Ribbon Issue

[steelha 0]

 

Hello, I'm having trouble creating a dynamic menu from a table using the Ribbon component in Delphi 12.
I've created the tabs as the main menu options and the groups as submenus, but when I try to create the items for each group, 
I only get one. Here's the image and code.

If anyone knows how to solve the problem I would be very grateful.

CODE:

procedure TfrmPrincipal.Cargar_Menu;
var
  TabItem    : TRibbonTabItem;
  Group      : TRibbonGroup;
  BarAction  : TActionClientItem;
  PadreIDTab : Integer;
  PadreIDGrupo : Integer;
  BarItem    : TActionBarItem;
  Bg : TRibbonLargeButtonControl;
  Bs : TRibbonSmallButtonControl;
begin
  ribMenu.Tabs.Clear;

  QryMenu.Close;
  QryMenu.SQL.Clear;
  QryMenu.SQL.Add('SELECT * ');
  QryMenu.SQL.Add('FROM Menu ');
  QryMenu.SQL.Add('WHERE (padre_id IS NULL OR padre_id = 0) AND activo = 1 ');
  QryMenu.SQL.Add('ORDER BY orden');
  QryMenu.Open;
  QryMenu.First;

  while not QryMenu.Eof do // Crear las pestañas principales
  begin
    TabItem := ribMenu.Tabs.Add;
    TabItem.Caption := Trim(QryMenu.FieldByName('titulo').Value);
    PadreIDTab := QryMenu.FieldByName('menu_item_id').Value;

    QrySubMenu.Close;
    QrySubMenu.SQL.Clear;
    QrySubMenu.SQL.Add('SELECT * ');
    QrySubMenu.SQL.Add('FROM Menu ');
    QrySubMenu.SQL.Add('WHERE padre_id = :PadreIDTab AND activo = 1 '); // Obtener los grupos de la pestaña
    QrySubMenu.SQL.Add('ORDER BY orden');
    QrySubMenu.Parameters.ParamByName('PadreIDTab').Value := PadreIDTab;
    QrySubMenu.Open;
    QrySubMenu.First;

    while not QrySubMenu.Eof do // Crear los grupos dentro de la pestaña
    begin
      if UpperCase(QrySubMenu.FieldByName('tipo').Value) = 'GRUPO' then
      begin
        Group := TRibbonGroup.Create(ribMenu);
        Group.Parent := TabItem.Page;
        Group.Caption := Trim(QrySubMenu.FieldByName('titulo').AsString);
        PadreIDGrupo := QrySubMenu.FieldByName('menu_item_id').Value; // Capturar el ID del grupo

        QryItems.Close;
        QryItems.SQL.Clear;
        QryItems.SQL.Add('SELECT * ');
        QryItems.SQL.Add('FROM Menu ');
        QryItems.SQL.Add('WHERE padre_id = :PadreIDGrupo AND activo = 1 '); // Obtener los ítems del grupo
        QryItems.SQL.Add('ORDER BY orden');
        QryItems.Parameters.ParamByName('PadreIDGrupo').Value := PadreIDGrupo;
        QryItems.Open;
        QryItems.First;

        while not QryItems.Eof do // Crear los ítems dentro del grupo
        begin
          if UpperCase(QryItems.FieldByName('tipo').Value) = 'ITEM' then
          begin
            BarItem := amMenu.ActionBars.Add;
            BarAction := BarItem.Items.Add;
            BarAction.Caption := Trim(QryItems.FieldByName('titulo').Value);
            BarItem.ActionBar := Group;
          end;
          QryItems.Next;
        end;
        QryItems.Close; // Cerrar la consulta de ítems
      end;
      QrySubMenu.Next;
    end;
    QrySubMenu.Close; // Cerrar la consulta de grupos
    QryMenu.Next;
  end;
  QryMenu.Close; // Cerrar la consulta de pestañas
end;