Ikonki - teraz gdzie indziej ;)

Witam,
kiedyś Wolverine podał mi taką procedurę:

procedure MakeIcons(var ListView: TListView; ImageList: TImageList); 
var 
    q: Integer; 
    Icon: TIcon; 
    FileInfo: SHFILEINFO; 
begin 
    Icon := TIcon.Create; 
    ListView.Items.BeginUpdate; 
    for q := 0 to ListView.Items.Count -1 do begin
         SHGetFileInfo(PChar(ListView.Items[q].SubItems[0]), 0, FileInfo, 
         SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON); 
         icon.Handle := FileInfo.hIcon; 
         ListView.Items[q].ImageIndex := ImageList.AddIcon(Icon); 
         DestroyIcon(FileInfo.hIcon);
    end;
    Icon.Free;
    ListView.Items.EndUpdate; 
end; 

Czy da się ją (na pewno się da, ale nie wiem jak :-) ) przerobić by chodziła pod ListBox-em??

W pas się kłania tryb OwnerDraw, bo niestety ListBox nie ma czegoś takiego jak ImageIndex. Przyjrzyj się artowi Adama.