80 MB Datei - doppelte Zeilen entfernen

[capo]

Delphi-Quellcode:

var listAlt, listNeu: TStringList; 
    i: Integer; 
begin 
  listAlt := TStringList.Create; 
  // laden wie gehabt 
  listAlt.LoadFromFile('...'); 

  listNeu := THashedStringList.Create; 
  for i := 0 to listAlt.Count - 1 do 
  begin 
    if listNeu.indexOf(listAlt[i]) < 0 then 
    begin 
      listNeu.add(listAlt[i]); 
    end; 
  end; 

  listNeu.SaveToFile('...'); 
end;

damit läuft es nun schon eine stunde, nichts passiert