[Elza]

Хорошо, изменила и делаю

Код:

  for i := 1 to fileCount do begin
 fileName := copy(fileClump,1,pos('`',fileClump)-1);
 Item:=fileListView.AddItem(fileName,pointer(self));
 Item.ImageIndex :=  IconNum(LowerCase(ExtractFileExt(fileName)));

Выдает

E2010 Incompatible types: 'TListItem' and 'procedure, untyped pointer or untyped parameter'

на строке Item:=fileListView.AddItem(fileName,pointer(self)) ;