//Цикл отрисовки кривой Безье
 //for i := 0 to maxI do
 while (t <= 1) do
 begin
   //Получаем координаты текущей точки
   fP0 := GetFloatBezierPoint(pA, pA1, pB1, pB, t);

   //Коррекция коэффициента функции t
   //в зависимости от величины сегмента
   //для равномерного распределения точек по кривой
   //..............................................

   if (i mod seg) = 0 then
   begin
     //Конечная точка сегмента
     nt := t + ts;
     fP1 := GetFloatBezierPoint(pA, pA1, pB1, pB, nt);

     //Рисуем прямоугольник вокруг сегмента
     if i <> 0 then
     begin
       eR := NormalizeRegion(Round(fP0.X), Round(fP0.Y), Round(fP.X), Round(fP.Y));
       sBmp.RectAA(eR, crYellow, 255, 32);
     end;

     //Пиксел на кривой
     sBmp.FloatQPixel(fP0.X, fP0.Y, crWhite, 255, glvOpacity);
     sBmp.FloatQPixel(fP0.X, fP0.Y, crWhite, 255, glvOpacity);
     sBmp.FloatQPixel(fP0.X, fP0.Y, crWhite, 255, glvOpacity);
     sBmp.FloatQPixel(fP0.X, fP0.Y, crWhite, 255, glvOpacity);

     //Ширина и высота сегмента
     //образованного предыдущей и текущей точками
     fW := Abs(fP1.X - fP0.X);
     fH := Abs(fP1.Y - fP0.Y);

     h := (fW >= fH);

     //Длина сегмента
     if (fW <> 0) and (fH <> 0) then
     begin
       sqrtSL := sqrt(fW * fW + fH * fH);
       sc := 1 / sqrtSL; //Коррекция шага текущего сегмента
       TSL := TSL + sqrtSL; //Общая длина в пикселах (сумма квадратов)
     end;

     s1 := Ansistring(FloatToStrF(sc, ffNumber, 18, 2)); //Соотношение длины сегмента к t
     sBmp.DrawHText5x7(eR.EX + 3, eR.Y + (eR.H div 2) - 4, s1, 1, crWhite, 255, 32);

     fP := fP0;
   end;//if (i mod seg)

   inc(i);

   //..............................................

   //Рисуем кривую
   sBmp.FloatQPixel(fP0.X, fP0.Y, crLtGreen, 255, glvOpacity);

   //Смещаемся по функции
   t := t + (ts * sc); //Равномерное распределение точек
   //t := t + ts; //Неравномерное распределение точек
 end;

step:=0.1; // начальное разбиение. Сишком большим лучше не делать.
while (t <= 1) do
 begin
repeat
P0 := GetFloatBezierPoint(pA, pA1, pB1, pB, t);
P1 := GetFloatBezierPoint(pA, pA1, pB1, pB, t+step*0.5);
P2 := GetFloatBezierPoint(pA, pA1, pB1, pB, t+step);
dH:=DistancePointLine(p1, Line(P0,p2)); // Расстояние от точки до прямой.
if (dh>=0.5) then step:=step*0.5; // Слишком большой изгиб.
if (dh<=0.1) and (step<0.1) then step:=step*2; // слишком маленький шаг
until (dh<0.5);
DrawLine(P0,P2);
t:=t+step;
end;