ToogleSwitch und ini

[SaFu]

Hi,

So sieht der Code aus, wenn er off ist wird ein False in die INI geschrieben.

Code:

procedure TForm2.ToggleSwitchAktivierenClick(Sender: TObject);
begin
 if ToggleSwitchAktivieren.IsOn = True then
     begin
      with TMemIniFile.Create(ConfigIniPfad) do
      try
        begin
         WriteBool(Einstellung1,Toggle1SwitchAktiviert,True);
         UpdateFile;
        end;
       finally
       Free;
      end;
    end
  else  // ab hier wenn  Toogle1 Aus dann:
    begin
      with TMemIniFile.Create(ConfigIniPfad) do
      try
        begin
         WriteBool(Einstellung1,Toggle1SwitchAktiviert,False);
         UpdateFile;
        end;
       finally
       Free;
      end;
    end;
end;