procedure TForm9.FormCreate(Sender: TObject);
var plist:TIniFile; pos1:Integer;
begin try
pgBuffer:=TStringList.Create;
plist:=TIniFile.Create(form2.root+'System\plugin.inf');
plist.ReadSections(pgBuffer);
for pos1:=0 to pgBuffer.Count -1 do begin
   list1.Items.Add(' '+trim(plist.ReadString(pgBuffer.Strings[pos1],'desc',' Untitled Plugin')));
   list1.Checked[list1.Items.Count-1]:=plist.ReadBool(pgBuffer.Strings[pos1],'enable',false);
end;
plist.free;
except end;End;