Item in ListView hinzufügen mit icon

[Äfan]

Delphi-Quellcode:

  with DownloadList.Items.Add do
   begin
    if ((sr.attr and faDirectory) <> faDirectory) then
     Caption := (sr.Name);
     Subitems.Add(formatfloat('0.00',sr.Size / 1024)+' KB');
     Subitems.Add(DateTimeToStr(FileDateToDateTime(sr.time)));
    end;