procedure draw_plugins_list_frm2();
var plist:TIniFile; s1:TStringList;pos1:Integer; mnu1:TMenuItem;
begin
s1:=TStringList.Create;
plist:=TIniFile.Create(form2.root+'System\plugin.inf');
plist.ReadSections(s1);
for pos1:=0 to s1.Count -1 do begin
   if plist.ReadBool(s1.Strings[pos1],'enable',false) then begin
      mnu1:=TMenuItem.Create(form2);
      mnu1.Caption :=' '+trim(plist.ReadString(s1.Strings[pos1],'name',' Untitled Plugin'))+'   ';
      mnu1.Hint :=s1.Strings[pos1];
      mnu1.OnClick := form2.LoadPlugIns;
      form2.Tools1.Add(mnu1);
   end;
end;
s1.free;
plist.free;
End;