Графика в с++ builder

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Image1->Canvas->Brush->Color=clGreen;//заливка зелёным
//без заливки
Image1->Canvas->Arc(10,10,150,150,190,70,10,70);//верхняя дуга
Image1->Canvas->MoveTo(10,70);
Image1->Canvas->LineTo(10,200);//левая линия
Image1->Canvas->Arc(10,130,150,270,10,200,190,200);//нижняя дуга
Image1->Canvas->MoveTo(149,200);
Image1->Canvas->LineTo(149,70);//правая линия
//с заливкой
Image1->Canvas->Chord(200,10,340,150,340,70,200,70);//верхний полукруг
Image1->Canvas->Rectangle(200,70,340,200);//квадрат
Image1->Canvas->Chord(200,130,340,270,200,200,340,200);//нижний полукруг
 
Image1->Canvas->Pen->Color=clGreen;//рисуем зелёным
Image1->Canvas->MoveTo(200,70);//стираем линию между 
Image1->Canvas->LineTo(340,70);//верхним полукругом и квадратом
}

Image1->Canvas->Brush->Color=clBlack;
TPoint points[4];
points[0]= Point(10,60);
points[1]= Point(90,10);
points[2]= Point(100,20);
points[3]= Point(15,70);
Image1->Canvas->Polygon(points,3);
 
TPoint points1[4];
points1[0]= Point(15,70);
points1[1]= Point(100,70);
points1[2]= Point(100,80);
points1[3]= Point(15,80);
Image1->Canvas->Polygon(points1,3);
 
Image1->Canvas->MoveTo(90,20);
Image1->Canvas->LineTo(100,35);
Image1->Canvas->LineTo(15,70);