Source position: comctrls.pp line 1259
type TLVDrawItemEvent = procedure(
Sender: TCustomListView;
AItem: TListItem;
ARect: TRect;
AState: TOwnerDrawState
) of object;