nach doppelten dateinamen suchen

[Dani]

Herr, vergib mir diese while-Schleife

Delphi-Quellcode:

procedure DeleteDuplicates(aStrList: THashedStringlist); 
var i: Integer; 
begin 
for i:=aStrList.count-1 downto 0 do
 If aStrList.IndexOf(aStrList[i])<>i then 
  aStrList.Delete(i); 
end;