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