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