запретить переопределение в дочерних классах

[MAcK]

Делаю свой класс, нужно добавить в public секцию процедуры, функции, свойства.
Вопрос, как запретить переопределение в дочерних классах?

[Пепел Феникса]

не делайте виртуальными/динамическими.
но вообще, много не запретите. ибо всегда останется hide

[Utkin]

В новых Дельфях можно:

type
TAbstractClass = class sealed
procedure SomeProcedure;
end;

Такой класс - импотент, от него нельзя наследоваться .

Финальные методы класса
В классах можно создавать виртуальные методы, которые перекрыть нельзя.

TAbstractClass = class abstract
  public
    procedure Bar; virtual;
  end;

  TFinalMethodClass = class(TAbstractClass)
  public
    procedure Bar; override; final;
  end;

Переопределить Bar уже больше нельзя. Конкретно уже для процедур и функций.
Одного понять не могу, на фига козе боян?