[Alegun]

Такое не есть хорошо, lmikle ещё в прошлой теме выложил правильное решение, здесь тоже самое

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 sl1, sl2: TStrings;
begin
 sl1:= TStringList.Create;
 sl2:= TStringList.Create;
 sl1.LoadFromFile('output_add.txt');
 for i := 0 to sl1.Count-1 do
  if sl2.IndexOf(sl1[i]) < 0 then sl2.Add(sl1[i]);
 sl1.Free;
 sl2.SaveToFile('output_add.txt');
 sl2.Free;
end;