Source position: googlepeople.pp line 174
protected procedure TPerson.Setrelations(
AIndex: Integer;
const AValue: TPersonTyperelationsArray
); virtual;