procedure TForm1.plugin1NewCommand(Sender: TObject; ACaption, AHint,
  AData: String; AShortCut: TShortCut; ABitmap: TBitmap;
  AEvent: TNotifyEvent);
var _item_ex : TMenuItem;
begin try
_item_ex := NewItem(' '+ACaption, scNone, False, True, AEvent, 0, '');
Tools1.Add(_item_ex);
except end;End;