Source position: comctrls.pp line 1287
type TLVEditingEvent = procedure(
Sender: TObject;
Item: TListItem;
var AllowEdit: Boolean
) of object;