Динамический список (срочно!)

[Achtung-Partizanen]

Товарищи, срочно нужна помощь!
Необходимо создать динамический список из графических объектов (тоже динамических).
Вот как выглядит часть кода с созданием списка:


type
...

OrtReg=^ort;
Ort=record
elem:TPoint;
next:ortreg;
end;

TList=Class
constructor Create;
destructor Destroy; virtual;
private
Orten: OrtReg;
public
procedure Add(elem: TPoint);
procedure Report;
end;

......

constructor TList.Create;
begin
orten:=nil;
end;

destructor TList.Destroy;
begin
List1.Free;
end;

Procedure TList.Add(Elem:TPoint);
Var N:Ortreg;
begin
N^.elem:=Elem;
N^.next:=Orten;
Orten:=N;
end;

procedure TList.Report;
Var N:OrtReg;
begin
N:=Orten;
while N<>Nil do
begin
N^.elem.Show; {вот на этой строке не компилируется}
inherited;
N:=N^.next;
end;
end;


Вообще это калька с Паскаля (на Паскале решение задачи есть), но здесь не прокатила.
Заданы три класса фигур - линия, эллипс и прямоугольник (все наследуются от класса TPoint). У каждого класса (кроме TPoint) есть конструктор, деструктор, процедура Show и процедура Hide. Все деструкторы, Show'ы и Hide'ы виртуальные
Что делать?

[Carbon]

Я так понял, что метода Show у TPoint нет или он абстрактный. Вот так делай:

(N^.elem as TLine).Show;

[Achtung-Partizanen]

У TPoint есть только коструктор Create. Не знаю, нужны ли в нем Show и Hide. В Паскале я без них обходился. Но вариант as TLine - это не есть правильно, потому что в списке у меня будут не только линии, но и круги с прямоугольниками. Подгонять, как у меня что по порядку идет, я не могу, да и права не имею.
Кстати, тут еще непонятка выяснилась. Почему я не могу вызвать процедуру Show или Hide непосредственно из класса: TLine.Show ? Если из переменной класса TLine - то можно, а так - хрен...

[Carbon]

Не знаю, нужны ли в нем Show и Hide.

Нужны, если надо вызвать их из предка (хотя бы абстрактные). Если этих методов нет, тогда нужно делать так

(N^.elem as TLine).Show;

(TLine для примера).

Почему я не могу вызвать процедуру Show или Hide непосредственно из класса: TLine.Show ?

Потому что они определены для объекта, а не для класса.

[Achtung-Partizanen]

Да, я выяснил, в чем дело. Причина в том, что руки кривые. В классе TPoint эти методы нужны. Как я их прописал - все встало на свои места.
Но все равно, ..., не работает. Какую-то ошибку выдает - с памятью че-то вроде...
Код проги прилагается