Source position: googlediscovery.pp line 254
protected procedure TJsonSchema.SetadditionalProperties(
AIndex: Integer;
const AValue: TJsonSchema
); virtual;