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