[ALexandr555]

Код:

begin
  s := TStringList.Create;
  s.LoadFromFile('love.txt');
for i:=0 to s.Count-1 do
    for k:=1 to Length(s.Strings[i]) do
      if(s.Strings[i][k] = s.Strings[i][k]) then
       begin
         s.Delete(i);
        end;
s.SaveToFile('love.txt');

пробую таким способом их сравнивать и удалять, чтото не выходит