txt-Datei überspeichern

[Hermann85]

Hallo,
Ich habe eine txt-datei ind einer Stringlist geladen und bearbeitet. Nun möchte ich das wieder in der selben datei speichern. Das geht aber nicht.
Wenn ich es allerdings in einer anderen Datei abspeicher funktionierts super.
Aber es muss doch gehn, dass ich die alte Datei überspeichern kann.
Hier erst mal mein Code:

Delphi-Quellcode:

procedure TForm1.bt_konvertierenClick(Sender: TObject);
var Datei : String;
    txt_Dokument : TStringlist;
    erste_Zeile : String;
begin
  Datei := Pfad;
  txt_Dokument := TStringlist.Create;
  txt_Dokument.LoadFromFile(Datei);
  erste_Zeile := copy(txt_Dokument.Text,0,17);
  txt_Dokument.Add(erste_Zeile);
  txt_Dokument.SaveToFile(Datei);
end;

Danke schon mal im Vorraus

Grüße Hermann