Menu Dinamico utilizando Ribbon

[steelha]

Muy buenas, asi como el tema dice; necesito ayuda para realizar un menu dinamico utilizando el componente Ribbon pero utilizando una Db. El problema consiste en que puedo montar los tabs que seran las diferentes opciones de menu, pero a la hora de crear grupos y los items en unos me crea en otros no y solo me coloca un item. no tengo idea de que hago mal. A continuacion dejo codigo he imagenes

Código Delphi [-]
procedure Tfrmprincipal.Carga_Menu;
var
  Group     : TRibbonGroup;
  TabItem   : TRibbonTabItem;
  BarItem   : TActionBarItem;
  BarAction : TActionClientItem;
  AnAction  : TAction;
  oldsql    : string;
begin
  oldsql := Dm.qrymenuitems.SQL.Text;
  Dm.qrymenu.Open;
  Dm.qrymenu.First;

  while not dm.qrymenu.Eof  do   //Crear las paginas/pestañas
  begin
    //Crear Pagina de la opcion principales del menu
    TabItem := mnPrincipal.Tabs.Add;
    TabItem.Caption := Trim(Dm.qrymenumCaption.Value);

    dm.qrymenuitems.SQL.Clear;
    dm.qrymenuitems.SQL.Text := 'Select * from tblMenu Where (mactivo = 1) and (mpertenece =' + 
     IntToStr((dm.qrymenuIDmenu.Value)) + ') Order by mpertenece,morden ASC';

    dm.qrymenuitems.Open;
    dm.qrymenuitems.First;

    Group := TRibbonGroup.Create(mnPrincipal);
    Group.Parent := TabItem.Page;
    Group.Caption := Trim(dm.qrymenuitemsmmenu.Value);

    while not Dm.qrymenuitems.eof do
    begin
      BarItem := amPrincipal.ActionBars.Add;
      BarAction := BarItem.Items.Add;
      amPrincipal.ActionBars.Add;
//        BarAction.Action := Action1;
      BarAction.Caption := Trim(Dm.qrymenuitemsmCaption.Value);
      BarItem.ActionBar := Group;

      Dm.qrymenuitems.Next;
    end;
    dm.qrymenu.Next;
  end;
  dm.qrymenuitems.SQL.Text := oldsql;
end;

[GerTorresM]

Hola buen@s días, tardes, noches !!

Te sugiero que te des una visita en esta página https://www.axolot.com/axwribbon.htm, el componente es gratuito y el ejemplo que trae es muy sencillo, sin un poco de paciencia y un poco de tiempo en pruebas a la fija podrás creer el menú en tiempo de ejecución

[steelha]

Gracias verificare

[steelha]

El componente me trae error y ademas no queria utilizar compenentes de terceros prefiero el que trae delphi por default