TFieldMap

pt 

FindField

pt 

FieldByName

Create

InitFields

LoadObject

GetFromField