Преобразовать верхнюю левую и нижнюю правую точки прямоугольной области в экранные, заданные целочисленными значениями
procedure RectPointsToIntScrCoords(x0,y0,x1,y1: Double; var aLeft,aTop,aWidth,aHeight: integer);