Порождение.
Вы можете легко породить объектный тип из существующего.
PNewScrollBar = ^TNewScrollBar; TNewScrollBar = object(TScrollBar) end;
Вы еще не имеете экземпляров этого объектного типа. До объявления объектов TNewScrollBar Вам необходимо определить новые методы или перекрыть некоторые методы TScrollBar и, возможно, добавить некоторые новые поля; иначе не существует причин для создания нового типа объекта. Новые или измененные методы и поля добавляют функциональность к TScrollBar. Ваш новый метод Init будет определять значения по умолчанию для Ваших новых объектов.
