[sof]

попал в непонятное:

Имеется два класса: TClass_01, TClass_02.
TClass_01 управляет TClass_02 и возвращает ссылки на TClass_02 в основную программу. Возникла необходимость получаемые ссылки на TClass_02 помещать в стекоподобную структуру в виде указателей.
Однако метод класса:
FUNCTION TClass_01.Add: TClass_02;
просто так в указатель не переделать, т.е. в основной программе не получилось выполнить ADDR(cls01.add).
Пришлось прибегнуть к следующему:
Type XZ = ^TClass_02;
VAR PTemp: POINTER;
VAR clsTemp: TClass_02;

PTemp := XZ(cls01.add); //PTemp = $9876543 - какой-то адрес, что подтверждается в Watch list'е

Собственно вопрос:
clsTemp := PTemp; //прекрасно присваивается, компилируется и работает и содержит уже не указатель а сам класс - разве так может быть?
т.е. clsTemp.метод_01 - отрабатывает на ура
Любые попытки разыменования PTemp приводят к ошибке