Laden aus INI ini.ReadBool

[Knotti2005]

Warum geht das nicht? Speichern geht...

Speichern

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
   s: boolean;
begin
    if form1.CheckBox1.Checked = true then
    s:= true
    else
    s:= false;
    ini.WriteBool('TAPI','Aktiviert',s);
    ini.Free;
end;

Laden

Delphi-Quellcode:

var
   a: boolean;
begin
  ini.ReadBool('TAPI','Aktiviert',a);
    ini.Free;
   if a = true then
   begin
   form2.TapiLine1.DeviceName:=Combobox1.Text;
   form1.CheckBox1.enabled:=true;
   form1.CheckBox1.checked:=true;
   form1.ComboBox1.Enabled:= false;
   end
   else
   begin
   form1.CheckBox1.Enabled:=falsE;
   form1.CheckBox1.checked:=false;
   form1.ComboBox1.Enabled:=true;
   end;

Leider wird die Checkbox1 nicht aktiviert und auch nicht der Hacken gesetzt...