Source position: googlepartners.pp line 454
protected procedure TCompany.Setranks(
AIndex: Integer;
const AValue: TCompanyTyperanksArray
); virtual;