LineTo

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

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=
" Прямоугольник, построенный методами MoveTo и LineTo";

frm.ShowModal();

// Обработчик события OnPaint
function frm_Paint(frm)
{
  var x1=20,y1=20,x2=frm.ClientWidth-x1,y2=stb.Top-y1;
  var cnv=frm.Canvas;

  cnv.Pen.Color=clHighlight;
  cnv.MoveTo(x1,y1);
  cnv.LineTo(x2,y1);
  cnv.LineTo(x2,y2);
  cnv.LineTo(x1,y2);
  cnv.LineTo(x1,y1);
}