Деструктор

Вызывайте наследуемый метод после реализации дополнительных действий:

Procedure MyObject.Done;

begin

{Реализация дополнительных действий}

{Вызов наследуемого деструктора Done}

end;

Работа деструктора проходит в обратном порядке по отношению к конструктору. Вначале Вы должны освободить всю дополнительно распределенную динамическую память, а уже затем вызвать наследуемый деструктор, чтобы уничтожить весь объект.