TLVSubItemImageEvent = procedure (Sender: TObject; Item: TListItem; SubItem: Integer; var ImageIndex: Integer) of object;
(Sender: TObject; Item: TListItem; SubItem: Integer; var ImageIndex: Integer) ( TLVSubItemImageEvent)();
ComCtrls
This is type ComCtrls.TLVSubItemImageEvent.