Source position: comctrls.pp line 1292
type TLVChangingEvent = procedure(
Sender: TObject;
Item: TListItem;
Change: TItemChange;
var AllowChange: Boolean
) of object;