Speichern in INI geht net

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm5.CheckBox1Click(Sender: TObject);
const einaus: array[Boolean] of string = ('AUS','Ein');
      Farben: array[Boolean] of TColor = (clRed,clLime); 
begin
  INIDocPfad:= Form1.Serverpfad  + 'Einstellungen\DocSettings.ini';
  Panel3.Color:= Farben[CheckBox1.Checked]; 
  with TMemIniFile.Create(INIDocPfad) do
    try         
      WriteBool(DokumentEinstellung,Anzeigen1,CheckBox1.Checked); // Wert in die ini datei schreiben
      WriteString(DokumentEinstellung, PanelFarbeEinAus, (ColorToString(Panel3.Color)));  // farbe Speichern
      WriteString(DokumentEinstellung,PanelText, Format('Dokumentenanzeige %s',[einaus[CheckBox1.Checked]]));
      UpdateFile;
    finally
      Free;
    end;
  //das gehört eigentlich hierhin
  if not CheckBox1.Checked then //hatte diese Zeile vergessen
    Button3.Click; //Timer stoppen
end;