unit u_events6; uses System; type I1 = interface event E1: Action; end; end.