AllowAdditionalProperties (TGoogleBaseObject)

pt 

Setprimary (TPersonTypeplacesLivedItem)

pt 

Setvalue (TPersonTypeplacesLivedItem)