Source position: googleplus.pp line 1299
protected procedure TPerson.SetobjectType(
AIndex: Integer;
const AValue: string
); virtual;