type
  TacScreenArea = (saFullScreen, saWorkArea);