TWriter
OnFindAncestor
OnWriteMethodProperty
OnWriteStringProperty
TFiler
TObject