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