unit u2; uses WPFObjects; procedure f; begin var w := Window; end; begin end.