Провести плавную линию

Form1->Canvas->MoveTo(20,100); //двигаемся в точку A 
Form1->Canvas->LineTo(80,50); //рисуем линию в точку B из A 
Form1->Canvas->LineTo(10,10); //рисуем линию в точку С из B

Canvas->Pixels[X][Y]=clBalck;//задать цвет пикселя x y как черный

void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
  TPoint p[4];
  PaintBox1->Canvas->Pen->Color = clRed;
  PaintBox1->Canvas->Pen->Width = 2;
  p[0]=Point(100,100);
  p[1]=Point(100,200);
  p[2]=Point(200,100);
  p[3]=Point(200,200);
  PaintBox1->Canvas->PolyBezier(p,3);
  p[3]=Point(100,100);
  p[2]=Point(100,200);
  p[1]=Point(200,100);
  p[0]=Point(200,200);
  PaintBox1->Canvas->PolyBezier(p,3);
}

// .H
 
// ...
//---------------------------------------------------------------------------
void DrawBezier(TPaintBox *Image,int x0,int y0,int x,int y,int x1,int y1,int Count);
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
 
// .CPP
 
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
  DrawBezier(PaintBox1,10,100,150,100,150,20,5);
}
//---------------------------------------------------------------------------
void DrawBezier(TPaintBox *Image,int x0,int y0,int x,int y,int x1,int y1,int Count)
{
  TPoint points[900];  // Массив точек для полигона
  Extended Step = 1.0/Extended(x1-x0) ;  // Шаг изменения параметра t
  Count = 0 ;
  for (int i=x0;i<x1&& i-x0<900;i++) {
    Extended t = Extended(i-x0)*Step ; // Очередное значение параметра t
    // Собственно рассчет координат очередной точки для 2D
    // Это считаются коэффициенты q1,q2,q3,q4
    Extended q1 = t*t*t*-1 + t*t*3 + t*(-3) + 1;
    Extended q2 = t*t*t*3 + t*t*(-6) + t*3;
    Extended q3 = t*t*t*(-3) + t*t*3;
    Extended q4 = t*t*t;
    // Здесь подставляются координаты опорных точек
    Extended qx = q1*x0 + q2*x + q3*x + q4*x1;
    // для q2 и q3 одинаковые x,y , это для совмещения двух средних точек
    Extended qy = q1*y0 + q2*y + q3*y + q4*y1;
    points[i-x0].x = qx ;
    points[i-x0].y = qy ;
    // Живой подсчет количества точек в полигоне
    // (гурманы могут его вычислить до цикла)
    Count++ ;
  }
  // Очистка площади для рисования
  Image->Canvas->Brush->Color = clWhite;
  Image->Canvas->FillRect(Rect(0,0,Image->Width,Image->Height));
//  Image->Canvas->Brush->Color = clRed;
  Image->Canvas->Pen->Color = clRed;
  Image->Canvas->Pen->Width = 2;
  // Замыкаем полигон
  points[Count].x = points[0].x ;
  points[Count].y = points[0].y ;
  Polyline (Image->Canvas->Handle,points,Count+1);
}
//---------------------------------------------------------------------------