KillDuplicates gibt Fehler mit CoolTrayIcon?

[mumu]

das müsste funktionieren:

Delphi-Quellcode:

procedure KillDuplicates(s: TStrings); 
var 
  iLow, iHigh: integer; 
begin 
  for iLow := s.Count-1 downto 0 do 
    for iHigh := s.Count-1 downto 0 do 
      if s[iLow] = s[iHigh] then
      begin
        s.Delete(iLow);
        break;
      end;