var
item: TMenuItem;
begin {get reference to delphi's mainmenu. You can handle it like a common TMainMenu} with (BorlandIDEServices as INTAServices).GetMainMenu do begin
item := TMenuItem.Create(nil);
item.Caption := 'A Mewn caption';
Items.Add(item);
end;
end;