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