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