Поиск и удаление одинаковых строк в файле — Delphi(Делфи)

procedure TForm1.Button1Click(Sender: TObject);
 var
 FLoad, FSave: TStringList;
 i: integer;
 tmp: string;
 begin
  FLoad := TStringList.Create;
  try
  FSave := TStringList.Create;
  try
  FLoad.LoadFromFile('file1.txt');
  for i := 0 to FLoad.Count - 1 do
  begin
    tmp := FLoad[i];
    if FSave.IndexOf(tmp) = -1 then
    FSave.Add(tmp);
  end;
  FSave.SaveToFile('file2.txt');
  finally
  FSave.Free;
 end;
 finally
 FLoad.Free;
 end;
 end;