unit u_indirect2; uses u_indirect3; type t1 = class end; t2 = class(t1) end; t3 = t1; end.