//Get reference to a item
ToItem = MainMenu1->Items->Items[StrToInt(Edit1->Text)];
//Create new menu item with the menu item as owner
NewItem = new TMenuItem(ToItem);
//Create caption relative to the main menu item's item count
NewItem->Caption = ToItem->Caption + " -- New Menu Item &" + IntToStr(ToItem->Count);
//Assign the Tag
//设置Tag,在单击事件中,用它来标示
NewItem->Tag = ToItem->Tag*10 + ToItem->Count;
//Assign an event handler
//这里处理子菜单的单击事件
NewItem->OnClick = DynaMenuClick;
//Insert new menu item under last main menu item
ToItem->Insert(ToItem->Count, NewItem);