Foros Club Delphi - Menu Dinamico utilizando Ribbon

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;