KillDuplicates gibt Fehler mit CoolTrayIcon?

[lucius]

Das ist die Speicher Function die verursacht die Leerzeilen.

Delphi-Quellcode:

Var Sl:Tstringlist;
    i:integer;
begin
  sl:=TStringList.Create;
  try
    //anzahl schreiben
    sl.Add(inttostr(ListView.Items.count-1));
    for i:=0 to ListView.Items.count-1 do
      begin
        //caption des items schreiben
        sl.Add(ListView.Items[i].Caption);
        //alle subitems des items mit einmal reinschreiben 
        sl.Add(ListView.Items[i].SubItems.CommaText)
      end;
    sl.SaveToFile(label2.caption +  '\torrents.db');
  finally
    sl.free;
  end;