Source position: comctrls.pp line 1248
type TLVCheckedItemEvent = procedure(
Sender: TObject;
Item: TListItem
) of object;