怎么在 popupmanu 主菜单上动态添加 Item

如何在 popupmanu 主菜单上动态添加 Item ？
如题

[解决办法]
BCB的HELP中本身就有Ex:
TMenuItem *NewItem = new TMenuItem(PopupMenu1); // create the new item
PopupMenu1-> Items-> Add(NewItem);// add it to the Popupmenu
NewItem-> Caption = "Menu Item " + IntToStr(3);
NewItem-> Tag = 3;
...