[icWasya]

как-то так

Код:

var
  Item:TListItem;


  Item:=fileListView.AddItem(fileName,pointer(self)); 
  Iemm.ImageIndex :=  IconNum(ExtractFileExt(fileName));

И ещё может быть понадобится LowerCase