procedure TForm9.FlatButton2Click(Sender: TObject);
var plist:TIniFile; pos1:Integer;
begin try
plist:=TIniFile.Create(form2.root+'System\plugin.inf');
for pos1:=0 to pgBuffer.Count -1 do
   plist.WriteBool(pgBuffer.Strings[pos1],'enable',list1.Checked[pos1]);
plist.free;
Close;
except end;End;