Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как добавить пункт меню?

01.01.2007
procedure AddItemsM(vAction: TAction; vMenu:TMainMenu);

var
 index
: integer
 vItems
:TMenuItem;
begin
 index
:= vMenu.Items.IndexOf(nmWindow);
 vItems
:= TMenuItem.Create(vMenu);
 vItems
.Action := vAction;
 vMenu
.Items.Items[index].Add(vItems);
end;

nmWindow - это Name пункта меню "Окна"

(этот код я писал для добавления открытых окон в пункт меню "Окна", главного меню своего приложения)

Автор: Pegas

Взято с Vingrad.ru https://forum.vingrad.ru