[Bugagasha]

Всем доброго времени суток. Пытаюсь программно создать меню из TActionManager и TActionMainMenuBar. Полоска меню отображается, но первый элемент меню "Test" никак не появляется

Код:

  // Создание меню
  AM:=TActionManager.Create(AOwner);
  EColorMap:= TXPColorMap.Create(AOwner);
  EM:=TActionMainMenuBar.Create(AOwner);

  EM.Caption:='EMM';
  EM.ActionManager:=AM;
  EM.ColorMap:=EColorMap;
  EM.Enabled:=True;
  EM.Visible:=True;
  EM.Parent:=Self;

  AM.ActionBars.Add;
  AM.ActionBars.ActionBars[0].ActionBar:=EM;
  AM.ActionBars.ActionBars[0].Visible:=True;
  AM.ActionBars.ActionBars[0].Items.add;
  AM.ActionBars.ActionBars[0].Items[0].Caption:='Test';
  AM.ActionBars.ActionBars[0].Items[0].ShowCaption:=True;
  AM.ActionBars.ActionBars[0].Items[0].Visible:=True;

Подскажите пожалуйста, где может быть ошибка или что я не так делаю ?