Speichern in INI geht net

[SaFu]

Hi habe mal wieder ein problem mit meiner Inidatei

das Speichern meines True'S geht net mehr warum
kann mir einer vielleicht helfen???

Delphi-Quellcode:

procedure TForm5.CheckBox1Click(Sender: TObject);
begin
 INIDocPfad:= Form1.Serverpfad  + 'Einstellungen\DocSettings.ini';
  if CheckBox1.Checked = True then
  begin
   Panel3.Color:= CLLime;
    with TMemIniFile.Create(INIDocPfad) do
     try
      WriteBool(DokumentEinstellung,Anzeigen1,True); // Wert in die ini datei schreiben
      WriteString(DokumentEinstellung, PanelFarbeEinAus, (ColorToString(Panel3.Color)));  // farbe Speichern
      WriteString(DokumentEinstellung,PanelText, ('Dokumentenanzeige Ein'));
    finally
     Free
    end;

If CheckBox1.Checked = False then
 Begin
  Panel3.Color:= CLRed;
    with TMemIniFile.Create(INIDocPfad) do
    try
     WriteBool(DokumentEinstellung,Anzeigen1,False); // Wert in die ini datei schreiben
     WriteString(DokumentEinstellung, PanelFarbeEinAus, (ColorToString(Panel3.Color)));  // farbe Speichern
     WriteString(DokumentEinstellung,PanelText, ('Dokumentenanzeige AUS'));
     UpdateFile;
    finally
   Free;
   Button3.Click; //Timer stoppen
  end;
 End;
end;
end;

Gruss Sascha