Source position: googlepartners.pp line 449
protected procedure TCompany.Setlocations(
AIndex: Integer;
const AValue: TCompanyTypelocationsArray
); virtual;