Проблема с ООП, Баг с наследованием. Опции

[LHx]

В общем, поясняю. У меня есть объект obj, содержащий метод move, который, в свою очередь, использует метод collide. От obj происходит объ. dot, тоже использующий НЕизмененный метод move, который _должен_ использовать измененный метод dot.collide, однако использует метод obj.collide. Видимо, для использования метода dot.c..... придется перекрывать метод move, а это долго. Есть методы без извращений?

[Romtek]

virtual; - когда нужно перекрыть метод.
Например, есть метод Draw для отрисовки какой-то фигуры.
Если необходимо изменить только отрисовку объекта, то нет нужды писать новый объект, а надо просто "перекрыть" новым методом.

Код

Type
 TCircle = object (TGraphObject)
    procedure Draw;
 end;

 TFilledCircle = object (TCircle)
   filled: boolean;
   procedure Draw; virtual; { перекрытие метода }
 end;

procedure TFilledCircle.Draw;
begin
 if Filled then
    Inherited.Draw { рисуем окружность }
 else
 begin
   { рисуем заполненную окружность (круг) }
 end;
end;