[epuigdef]

Debes tener montado el componente TMainMenu y después añadir los elementos de la siguiente manera;

Código Delphi [-]
var a : TMenuItem;
begin
a := TMenuItem.Create(self);
a.Caption := 'dinamico';
a.OnClick := ....
MainMenu1.Items.Insert(0, a);

Edu