unit u_methodcall2; uses u_methodcall3; type t2 = class(t1) end; end.