TStringlist wird falsch gespeichert

[Jiro]

Danke, hat so funktioniert (sowohl mit Clear als auch ganz ohne StringList).
Allerdings hab ich jetzt das nächste Problem. Und zwar möchte ich beim Laden in die Playliste prüfen, ob der Eintrag schon vorhanden ist.

Delphi-Quellcode:

     for playlistcheck := 0 to playlist.Count -1 do
        if opendialog.Filename<>playlist.Items[vidname] then
           begin
             playlist.Items.AddStrings(opendialog.Files);
           end
        else
     showmessage('Schon vorhanden!');

Wenn in der Playliste schon ein Eintrag vorhanden ist und ich den selben nochmal hinzufügen möchte, kommt die Meldung.
Wenn aber gar kein Eintrag vorhanden ist, passiert gar nichts. Woran liegt das schon wieder?