Класс В Классе. Создание Новых Типов

[Senset]

Всем привет!
Допустим есть код:

pData=^Data;
Data=record
r:pData;
d:string;
end;
var b:pData;

таким образом получим получим последовательность элементов pData;
теперь в классах:

Data=class
r:Data;
d:string;
<<конструкторы, деструкторы и прочая муть опускаются>>

такой код даж принципиально не компилится... че делать, как быть?
Суть вопроса:
как добиться того же эффекта, но классами?

 

[Senset]

Тему нужно закрывать \ удалять)
проблема решена восстановлением ядра Delphi