unit u7; uses u6; type t2 = class(t1) end; end.