Здравствуйте, ekamaloff, Вы писали:

E>Здравствуйте, demiurgjr, Вы писали:

D>>Перемести в private, а потомка в другой модуль.

E>Я привел немного неудачный пример. Про то, что в модуле можно обращаться к приватным членам любых классов, объявленных в этом же модуле я и сам знаю . Вынесение обращения в другой модуль проблемы не решает

От кого порождаемся то? Может все попроще можна организовать...
Хороший стиль программирования это делать промежуточную компонету

type
  TCustomSuperComponent = class (TCompoent)
  protected
    property Prop1 : Integer read GetProp1 write SetProp1;
  public
    property Prop2 : Integer read GetProp1 write SetProp2;
  end;

  TSuperComponent = class (TCustomSuperComponent)
  published
    property Prop1; // повышаем видимость
    property Prop2;
  end;

Ну и как уже говорилось выше, понизить видимость никак нельзя...