unit u_methodcall3; type t1 = class procedure p1 := exit; end; end.