Построить скругленный прямоугольник
procedure BuildCurvedRectangle(var aVertexes: TArrayDoublePoint;
var aVertexesCount: integer; x0,y0,x1,y1: Double;
aCurvedRectangleType: TCurvedRectangleType;
aCurvedRadius0, aCurvedRadius1, aCurvedRadius2, aCurvedRadius3: Double);