Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// Switches « New » with « Open » in the  « file » menu: 
// Items[0] identifies the first TMainMenu item « File » 
// [1] identifies the second submenu item « Open » 


MainMenu1.Items[0][1].MenuIndex := 0;


 // To Switch the « Search » with « Edit» menu , write : 

MainMenu1.Items[1].MenuIndex := 2;