Получить прямоугольную область координатного пространства по ее экранным размерам
procedure GetRectByScrSizes(var aRect: TDoubleRect; aScrWidth,aScrHeight: integer);
aRect
aScrWidth
aScrHeight