質問なのですが、クラスのフィールド（クラス型）のメソッドから、元のクラスを参照することはできるのでしょうか？

　　classA = class
　　private
　　　　procedure test();
　　end;

　　classB = class
　　private
　　　　a:classA;
　　end;

　　procedure classA.test();
　　begin
　　{ここからclassBを参照したい}
　　end;