type TClass = class end; T1 = class(I1) end; begin end.