TJSONSchemaWriterStream

WriteSchema

TJSONSchemaWriter

pt 

WriteProperty

pt 

WriteListAsObject

pt 

DoWriteSchema

Writeschema