xActionManager: TActionManager;
   xActionMainMenuBar: TActionMainMenuBar;
   xAction:TAction;
   xActionClient:TActionClient;
   xActionClientItem:TActionClientItem;
   xCollection:TCollection;
   xActionBarItem:TActionBarItem;

constructor TmyComponent.Create(aOwner: TComponent);
begin
 inherited Create(aOwner);

 xActionManager:=TActionManager.Create(Self);
 xActionManager.Name:='ActionManager';

 xActionMainMenuBar:=TActionMainMenuBar.Create(Self);
 xActionMainMenuBar.Name:='mmb';
 xActionMainMenuBar.Parent:=Self;
 
 xAction:=TAction.Create(Self);
 xAction.Caption:='aCaption';
 xAction.Enabled:=true;
 xAction.Visible:=true;
 xAction.Name:='aName';

 xActionClient:=TActionClient.Create(nil);
 FzActionManager.AddAction(xAction,xActionClient);

 xActionBarItem:=xActionManager.ActionBars.Add;
 xActionBarItem.ActionBar:=xActionMainMenuBar;
 xActionBarItem.AutoSize:=false;
 xActionClientItem:=xActionBarItem.Items.Add;

 xActionClientItem.Action:= xAction;

end;
...