Source position: fpjson.schema.schema.pp line 170
protected procedure TJSONSchemaValidations.SetConstrained;