Определить границы массива целочисленных точек
procedure GetIntPointArrayBounds(pBuf: PPoint; Index, Count: integer; var aMinX, aMaxX, aMinY, aMaxY: double; kPrecision: double = 1);