Crear y agregar un menuitem en tiempo de ejecución

Crear y agregar un menuitem en tiempo de ejecucion

Crear y agregar un menuitem en tiempo de ejecucion : Multi-millones de consejos para hacer su vida mas facil.

Como crear y agregar un menuitem en tiempo de ejecucion ?
tipo
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
privada
& nbsp & nbsp procedimiento MenuClick(Sender: TObject)
...
NewMenu := TMenuItem.Create(nil) // yo que no sea necesario
& nbsp & nbsp con NewMenu hacer
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Caption := '& Test'
& nbsp & nbsp & nbsp & nbsp OnClick := MenuClick //
& nbsp & nbsp final
& nbsp & nbsp MainMenu1.Elementos.Agregar(NewMenu) // Nuevo menu Principal
& nbsp & nbsp MainMenu1.Los elementos[0].Agregar(NewMenu) // New menuitem
NewItem
salto de Linea
MewMenu
NewPopupMenu
NewSubMenu
MainMenu1.Elementos.Agregar(NewItem(' & Test', 0, True, True, nil, 1101, '))
& nbsp & nbsp MainMenu1.Los elementos[0].Agregar(NewSubMenu(' & Test', 0, 'AName2',
& nbsp & nbsp & nbsp & nbsp [NewItem(' & Test1', 0, True, True, nil, 0, '),

& nbsp & nbsp & nbsp & nbsp NewItem(' & Prueba2', 0, True, True, nil, 0, ')]))
& nbsp & nbsp MainMenu1.Los elementos[0].Agregar(nueva Linea)
& nbsp & nbsp con NewPopupMenu(self, 'ole', paleft, verdadero,
& nbsp & nbsp & nbsp & nbsp NewItem(' & Test1', 0, True, True, nil, 0, '),
& nbsp & nbsp & nbsp & nbsp NewItem(' & Prueba2', 0, True, True, nil, 0, ')]) hacer
& nbsp & nbsp & nbsp & nbsp Emergente(10, 10)