type
  TacScreenEdges = set of (seLeft, seTop, seRight, seBottom);