type I1 = interface; I2 = interface; I1 = interface(I2) end; I2 = interface(I1) end; type t1=class(I1) end; begin new t1; end.