Source position: comctrls.pp line 1268
type TLVCreateItemClassEvent = procedure(
Sender: TCustomListView;
var ItemClass: TListItemClass
) of object;