type TNode = class; TNode = class a: T1; end; begin end.