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

S>Просто этот компонент наверно наследник всех уже существующих компонентов по 3 раза.

Тогда это в билдере... в Паскале нет множественного наследования.

Разьве что так:

TProgrammer = class(TWorker)