KillDuplicates gibt Fehler mit CoolTrayIcon?

[lucius]

Morgen dahead, so sieht die Killduplicates aus.

Delphi-Quellcode:

procedure KillDuplicates(s: TStrings);
var
  iLow, iHigh: integer;
begin
  for iLow := 0 to s.Count - 2 do
    for iHigh := Pred(s.Count) downto Succ(iLow) do
      if s[iLow] = s[iHigh] then
        s.Delete(iHigh);

Gruss Lucius.