unit u_abstract2; type t1 = abstract class where TSelf: t1; end; end.