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