type
TacScreenArea = (saFullScreen, saWorkArea);