TLVEditingEvent = procedure (Sender: TObject; Item: TListItem; var AllowEdit: Boolean) of object;
(Sender: TObject; Item: TListItem; var AllowEdit: Boolean) ( TLVEditingEvent)();
ComCtrls
This is type ComCtrls.TLVEditingEvent.