TLVCheckedItemEvent = procedure (Sender: TObject; Item: TListItem) of object;
(Sender: TObject; Item: TListItem) ( TLVCheckedItemEvent)();
ComCtrls
This is type ComCtrls.TLVCheckedItemEvent.