TLVInfoTipEvent = procedure (Sender: TObject; Item: TListItem; var InfoTip: string) of object;
(Sender: TObject; Item: TListItem; var InfoTip: string) ( TLVInfoTipEvent)();
ComCtrls
This is type ComCtrls.TLVInfoTipEvent.