PolyBezier

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TCanvas PolyBezier";
frm.Width =525;
frm.Height=375;
frm.OnPaint=frm_Paint;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример кривой, нарисованной методом PolyBezier";

// Массив опорных точек
pnt_lst=new Array();
x=10;
y=stb.Top/3;
dx=(frm.ClientWidth-x*2)/(n=21);
dy=stb.Top-y*2;
for (i=0;i<=n;i++,x+=dx,dy=-dy,y-=dy)
  pnt_lst[i]=Point(x,y);

frm.ShowModal();

// Обработчик события OnPaint
function frm_Paint(frm)
{
  var cnv=frm.Canvas;

  cnv.Pen.Color=clLtGray;
  cnv.Polyline(pnt_lst);

  cnv.Pen.Color=clHighlight;
  cnv.PolyBezier(pnt_lst);
}