Liste speichern geht netmehr

[SaFu]

hier mal alles

Delphi-Quellcode:

//=====SpeicherButton===========================================================
procedure TForm7.speichern;
begin
 if FileListBox1.Items.IndexOf(ComboBox4.Text+'.txt') >-1 then
   begin
    if MessageDlgPos ('Wollen Sie Wirklich die datei überschreiben?',mtWarning,[mbYes,mbNo],0,290,300)= mrYes then
     begin
      combobox4spei;
      GridSpeichern;
      memospeichern;
      MessageDlgPos('Datei'+ ComboBox4.Text +' wurde gespeichert!',mtInformation,[mbOk],0,340,300);

      neu;
     end;

    end
    else
     begin
      combobox4spei;
      GridSpeichern;
      memospeichern;
      MessageDlgPos('datei '+ ComboBox4.Text +' wurde gespeichert!',mtInformation,[mbOk],0,340,300);

      sNameDatei:= ComboBox4.Text; // Variabele für die INI
      Label21.Caption:= sNameDatei; // Ausgabe der INI

      neu;
     end;

  begin

   ComboBox4.Clear; // ComboBox4 leeren
   ComboBox4.Items.LoadFromFile(sListePfad); //erneut laden


 INIVertrPfad := (ServerPfad + 'Einstellungen\VertrSettings.ini');
  begin
    with TMemIniFile.Create(INIVertrPfad) do
    try
     WriteString(GespeicherteDatei,DateiName,sNameDatei); // Wert in die ini datei schreiben
     UpdateFile;
    finally
     Free;
    end;
   end;
  end;
end;

//==========Combobox4 speichern=================================================
procedure TForm7.combobox4spei;
Var Combo4 :TStringList;
begin
 Combo4:= TStringList.Create;         //StringListe erzeugen
 ComboBox4.Items.Add(ComboBox4.Text); //Combo4 Text in die Combo4 List übergeben
 Combo4.Duplicates:= DupIgnore;       //Doppelte Namen ignorieren
 Combo4.Sorted:= True;                //Reihenfolge sotieren
 Combo4.Assign(ComboBox4.Items);      //ComboBox4 items nach ComboBox 4 Kopieren
 ComboBox4.Items.Assign(Combo4);      //ComboBox4 kopieren nach ComboBox4 Items
 Combo4.Free;                         //Stringliste freigeben
  
sListePfad:= (Form1.ServerPfad  +'liste\alles.txt');
  ComboBox4.Items.SaveToFile(sListePfad); 
end;

Es funktioniert eigentlich alles meine anderen Procduren verweisen auch auf dem Pfad und es wird alles auf dem Server gespeichert.

das laden der combobox geht auch