ListView und Textdatei

[MaM]

Leider schreibt er dennoch nichts in die Datei.

Delphi-Quellcode:

type
  TForm_Kundenhinzufuegen = class(TForm)
.
.
.

  private
    { Private-Deklarationen }
    slDaten : TStringList;  // Die "globale" Instanz
    function NeueZeile: string;

.
.
.

function TForm_Kundenhinzufuegen.NeueZeile: string;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Add(E_Firma.Text);
  sl.Add(E_Nachname.Text);
  sl.Add(E_Vorname.Text);
  sl.Add(E_Strasse.Text);
  sl.Add(E_Plz.Text);
  sl.Add(E_Ort.Text);
  sl.Add(CB_Land.Text);
  sl.Add(E_Telefon.Text);
  sl.Add(E_Fax.Text);
  sl.Add(E_Mobiltelefon.Text);
  sl.Add(E_eMail.Text);
  sl.Add(E_Zustaendigkeit.Text);
  sl.Add(E_Auslieferungsdatum.Text);
  sl.Add(E_Planungsende.Text);
  sl.Add(M_Ansprechpartner.Text);
  sl.Add(E_Firma.Text);
  Result := sl.CommaText;
  sl.Free;
end;


procedure TForm_Kundenhinzufuegen.FormCreate(Sender: TObject); 
begin
  slDaten := TStringList.Create;
  slDaten.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\kunden.txt');
end; 

procedure TForm_Kundenhinzufuegen.FormDestroy(Sender: TObject); 
begin 
  slDaten.SaveToFile(ExtractFilePath(Application.ExeName)+'data\kunden.txt');
  slDaten.Free; 
end; 

procedure TForm_Kundenhinzufuegen.B_HinzufuegenClick(Sender: TObject);
begin
  slDaten.Add(NeueZeile);
end;

procedure TForm_Kundenhinzufuegen.B_AbbrechenClick(Sender: TObject);
begin
  Close;
end;

MaM