Examples Delphi

Title: move a menu items?
//SwitchesNewwithOpeninthefilemenu:
//Items[0]identifiesthefirstTMainMenuitemFile
//[1]identifiesthesecondsubmenuitemOpen
MainMenu1.Items[0][1].MenuIndex:=0;
//ToSwitchtheSearchwithEditmenu,write:
MainMenu1.Items[1].MenuIndex:=2;