TProperty

pt 

Setvalue

pt 

Setname

TGoogleBaseObject

AllowAdditionalProperties