TStringlist wird falsch gespeichert

[Jiro]

Hallo Leute,
Ich habe mal wieder ein Problem, aber erstmal zu meinem Programm bzw. den Teilen, die bei meinem Problem eine Rolle spielen.
Und zwar habe ich:
Eine TListBox
Eine TStringList
Eine .txt Datei

Beim öffnen des Programms sollen alle Inhalte der Textdatei erst in eine TStringlist und von da aus in die ListBox kopiert werden.
Soweit klappt das auch, in der ListBox ist ein Eintrag.
Beim Beenden des Programms sollen alle Einträge der ListBox wieder in die Datei geschrieben werden (überschreiben).
Ich weiß nicht, woran das liegt allerdings habe ich nach dem 3. Programmstart auf einmal 2x den Eintrag in der Box, ohne etwas zu tun.

Delphi-Quellcode:

procedure Tmainwindow.FormCreate(Sender: TObject);
begin
      playliste:=TStringList.Create;
      playliste.LoadFromFile('videoliste.txt');
      playlist.Items.AddStrings(playliste);
end;

procedure Tmainwindow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
          playliste.AddStrings(playlist.Items);
          deletefile('videoliste.txt'); // Eingebaut, damit die Datei auch sicher überschrieben wird.
          playliste.SaveToFile('videoliste.txt');
end;

Die Datei wird beim schließen auch gelöscht und neu erstellt, aber trotzdem werden 2 Einträge gespeichert!