Треугольники, программа не запускается

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "laba2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct line
{
  int x1,y1,x2,y2,x3,y3;
  void draw(TCanvas *cn);
  TColor color;
};
 
void line:: draw(TCanvas *cn)
{
  cn->Pen->Color=color;
  cn->MoveTo(x1,y1);
  cn->LineTo(x2,y2);
  cn->MoveTo(x2,y2);
  cn->LineTo(x3,y3);
  cn->MoveTo(x3,y3);
  cn->LineTo(x1,y1);
 
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  line *ln;
  int i,n=7;
  ln=new line [n];
  for(i=0;i<n;i++)
  {
    ln[i].color=(TColor)random(0xffffff);
    ln[i].x1=random(2000);
    ln[i].y1=random(2000);
    ln[i].x2=random(2000);
    ln[i].y2=random(2000);
    ln[i].x3=random(2000);
    ln[i].y3=random(2000);
  }
 
  for(i=0;i<n;i++) ln[i].draw(Canvas);
  delete []ln;
}
//---------------------------------------------------------------------------