Create a menu item into the Delphi menu

{....}

uses  ToolsApi ,  Menus ;

{....}

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 ;