[DelphiM0ZG]

Когда я писал графический редактор, то добавлял пункты в ActionMenuBar таким способом:

Код:

procedure TGraphEditorForm.CreateActionItem(Const FileName: String);
Var
  MyAction: TAction;
begin
  MyAction:=TAction.Create(ActionMainMenuBar);
  With MyAction Do
    Begin
      Hint:=FileName;
      Caption:=ExtractFileName(FileName);
    End;
  
  MyAction.OnExecute:=LoadFileToImage;
  
  With ActionManager.ActionBars[12].Items[0].Items[2].Items.Add Do
    Begin
     Action:=MyAction;
    End;
end;

Этот код я использовал, чтобы в менюшке сделать несколько подпунктов для недавно открытых файлов. Там ещё у меня процедура LoadFileToImage, которая удаляла пункт меню, если не нашла файл.
Если мой код не понятен, то можно почитать об этом в книге М. Е. Флёнова - "Библия Delphi", там это написано после примера работы с этим компонентом (меню и панели инструментов в стиле XP - где-то там).