in textdateien schreiben

[zecke]

ein seltsames problem habe ich da hoffe jmd weiß auch da was:

es gilt Filename=edit2.text+' '+edit1.text nur so zur information...

es macht alles was es soll, aber es soll die sachen in eine neue file speichern, deswegen habe ich die file zuerst gelöscht, dann soll er alles in eine datei speichern die halt genauso heißt. das problem ist: er löscht zwar die datei, aber danach schreibt er alles in die datei hinzu anstatt eine neue zu machen. er löscht sie also nicht wirklich scheinbar....aber hier der code.

Code:

procedure TForm1.Button7Click(Sender: TObject);
var Path, Filename : string;
begin
Path := ExtractFilepath(ParamStr(0));
Filename := Path + Listbox1.Items[Listbox1.ItemIndex] + '.adr';
Memo1.Lines.LoadFromFile(Filename);
Memo1.Lines.Add(Edit1.Text);
Memo1.Lines.Add(Edit2.Text);
Memo1.Lines.Add(Edit3.Text);
Memo1.Lines.Add(Edit4.Text);
Memo1.Lines.Add(Edit5.Text);
Memo1.Lines.Add(Edit6.Text);
Memo1.Lines.Add(Edit7.Text);
Memo1.Lines.Add(Edit8.Text);
Memo1.Lines.Add(Edit9.Text);
Memo1.Lines.Add(Edit10.Text);
Memo1.Lines.Add(Edit11.Text);
Memo1.Lines.Add(Edit12.Text);
DeleteFile(Filename);
Showmessage('testbox gelöscht');
Memo1.Lines.SaveToFile(edit2.text+' '+edit1.Text+'.adr');
Listbox1.Items.SaveToFile('adrliste.adr');
end;