//!Тип 't1' наследует от самого себя type t1 = partial class end; t2 = class(t1) end; t1 = partial class(t2) end; begin end.