procedure TForm2.plugin1NewCommand(Sender: TObject; ACaption, AHint,
  AData: String; AShortCut: TShortCut; ABitmap: TBitmap;
  AEvent: TNotifyEvent);
var cmd_type:String; _item_ex : TMenuItem;
begin try
_item_ex := NewItem(' '+ACaption, scNone, False, True, AEvent, 0, '');
cmd_type:=lowercase(trim(AData));
if StrFind('~',cmd_type)>0 then begin
   _item_ex := NewItem(' '+ACaption, scNone, False, True, AEvent, 0, '');
   MainMenu1.Items[3].Add(_item_ex);
end;
StrReplace(cmd_type,'~','', [rfIgnoreCase, rfReplaceAll]);
if cmd_type='main_file_menu' then MainMenu1.Items[0].Add(_item_ex);
if cmd_type='main_edit_menu' then MainMenu1.Items[1].Add(_item_ex);
if cmd_type='main_view_menu' then MainMenu1.Items[2].Add(_item_ex);
if cmd_type='main_feature_menu' then MainMenu1.Items[3].Add(_item_ex);
if cmd_type='main_tool_menu' then MainMenu1.Items[4].Add(_item_ex);
if cmd_type='main_help_menu' then MainMenu1.Items[5].Add(_item_ex);
if cmd_type='tool_search_menu' then search_on_menu1.Items.Add(_item_ex);
if cmd_type='tool_media_menu' then media_pop1.Items.Add(_item_ex);
if cmd_type='tool_research_menu' then research_prj_pop1.Items.Add(_item_ex);
if cmd_type='popup_playlist_menu' then mmanage_1.Items.Add(_item_ex);
if cmd_type='popup_main_menu' then main_pop1.Items.Add(_item_ex);
if cmd_type='popup_media_menu' then media_src_menu.Items.Add(_item_ex);
if cmd_type='tool_fav_menu' then fav_con1.Items.Add(_item_ex);
_log_entry('Plugin Loader founds '+AData+' type plugin and try install it.');
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'A40000');
end;End;