Polygon

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

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

// Массив опорных точек
pnt_lst=new Array();
h=stb.Top;
for (i=0,x=(frm.ClientWidth-h)/2,y=10,n=5,h2=h/2,f=Math.PI*4/n;i<n;i++)
  pnt_lst[i]=Point(x+h2*(1+Math.sin(f*i)),y+h2*(1-Math.cos(f*i)));

frm.ShowModal();

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

  cnv.Pen.Color=clHighlight;
  cnv.Brush.Color=clWhite;
  cnv.Polygon(pnt_lst);
}