Source position: googlepeople.pp line 574
protected procedure TResidence.Setcurrent(
AIndex: Integer;
const AValue: Boolean
); virtual;