Source position: extjsjson.pp line 45
type TJSONObjectAllowEvent = procedure(
Sender: TObject;
AObject: TJSONObject;
var Allow: Boolean
) of object;