Utiliza la función NewItem de Delphi:
function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem;
Sería algo así (de todas formas en la ayuda de delphi tienes ejemplos):
Código Delphi
[-]
Item := NewItem('Opcion A.3.1',
ShortCut(Word('A'), [ssCtrl, ssShift, ssAlt]),
False,
True,
OptA31MenuItemClick, 0, '');
Item.Tag := 1;
Item.Bitmap.LoadFromResourceName(HInstance, RES_OPTA31);
OptA3.Add(BMenuItem);