[Страдалецъ]

А если так сделать?

Код:

 s := TStringList.Create;
 s.Sorted := True;
 s.LoadFromFile('love.txt');

Не надо будет ничего удалять ручками, получите уникальный набор строк, т.к. действует по умолчанию s.Duplicates := dupIgnore;