KillDuplicates gibt Fehler mit CoolTrayIcon?

[lucius]

Hallo Leute etwas seltsames ist mir passiert und ich weiss nicht weiter.
Ich benutze ein CoolTrayIcon fuer mein Programm.
Jetzt wollte ich ueber der Function KillDuplicates doppelte Eintraege aus einer TStringListe entfernen aber dabei gibt das CoolTrayIcon einen Fehler aus.

Delphi-Quellcode:

procedure TDemoForm.SpeedButton1Click(Sender: TObject);
Var Sl:Tstringlist;
    i,Anzahl:integer;
    Listitem:Tlistitem;
begin
  Screen.Cursor := crHourGlass;
  Listview.Items.BeginUpdate;
  Listview.clear;
  sl:=TStringList.Create;
  try
    sl.LoadFromFile(label2.caption +  '\torrents.db');
    //anzahl lesen
    anzahl:=strtoint(sl[0]);
    KillDuplicates(sl); <----------------------
    for i:=0 to anzahl do
      begin
        listitem:=listview.Items.add;
        //caption des items lesen
        listitem.Caption := sl[i*2+1];
        //alle subitems des items mit einmal lesen
        listitem.SubItems.CommaText := sl[i*2+2];
      end;
  finally
   Groupbox2.Caption := 'Aantal torrents:  ' + IntTostr(Listview.Items.count);
    sl.free;
    Listview.Items.EndUpdate;
  end;
Screen.Cursor := crDefault;
end;

Der Fehler:

Zitat:

EStringListError List index out of Bounds(813);

Dan fragt er um die.pas file vom Cooltrayicon.
Kan mir bitte einer helfen?
Danke im voraus.