program program1; type T = class end; begin program1.T{@class program1.T@}.Create(); end.