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