Source position: googlepartners.pp line 452
protected procedure TCompany.SetpublicProfile(
AIndex: Integer;
const AValue: TPublicProfile
); virtual;