Рисование треугольника. Определить структуру Points и структуру Triangle.

struct MyPoints
{
 TPoint *Point;
 
 MyPoints(unsigned size)
  {
  Point= new TPoint[size];
  }
 
  ~MyPoints()
  {
  delete[] Point;
  }
};
 
struct Triangle
 {
  MyPoints *Points;
 
  Triangle()
   {
   Points = new MyPoints(3);
   }
 
   ~Triangle()
   {
   delete Points;
   }
 
  void Paint(TCanvas* Canvas,TColor Color)
   {
   TColor BufColor=  Canvas->Pen->Color;
   Canvas->Pen->Color= Color;
   Canvas->MoveTo(Points->Point[0].x,Points->Point[0].y);
   Canvas->LineTo(Points->Point[1].x,Points->Point[1].y);
   Canvas->LineTo(Points->Point[2].x,Points->Point[2].y);
   Canvas->LineTo(Points->Point[0].x,Points->Point[0].y);
   Canvas->Pen->Color= BufColor;
   }
 };
 
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormPaint(TObject *Sender)
{
Triangle Trg;
Trg.Points->Point[0]=TPoint(40,20);
Trg.Points->Point[1]=TPoint(20,100);
Trg.Points->Point[2]=TPoint(120,20);
 
Trg.Paint(Canvas,clRed);
}
//---------------------------------------------------------------------------