program test; uses eventloops, windows1; begin CreateWindow; Run; end.