TJSONSchemaWriter

pt 

WriteProperty

pt 

WriteListAsObject

pt 

DoWriteSchema

Writeschema