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