Polyline

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

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

// Массив опорных точек
pnt_lst=new Array();
for (i=0,tab=20,x=y=tab,dx=frm.ClientWidth-x,dy=stb.Top-y;dy>=tab;) {
  pnt_lst[i++]=Point(x,y); dx-=tab;
  pnt_lst[i++]=Point(x+=dx,y);
  if ((dy-=tab)>=tab) {
    pnt_lst[i++]=Point(x,y+=dy);
    if (i>3)
      dx-=tab;
    pnt_lst[i++]=Point(x-=dx,y);
    dy-=tab; y-=dy;
  }
}

frm.ShowModal();

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

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