var
 var1: Boolean = True;
 var2: Boolean = True;

procedure TProgramm.IniFileSaveLoad(Save: Boolean);
var
 IniFile: PIniFile;
begin
 IniFile := OpenIniFile(GetStartDir + 'settings.ini');
 try
   if Save then IniFile.Mode := ifmWrite;
   IniFile.Section := 'Main';
   Var1 := IniFile.ValueBoolean('Name1', Var1);
   IniFile.Section := 'Add';
   Var2 := IniFile.ValueBoolean('Name2', Var2);
 finally
   IniFile.Free;
 end;
end;