Canvas, LineTo - C++ Builder

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Image1->Width=475;
 Image1->Height=475;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int size_X,size_Y,centr_X,centr_Y;
 int centr_4,centr_8;
 size_X=size_Y=Image1->Width;
 centr_X=centr_Y=size_X/2;
 centr_4=centr_X/2;
 centr_8=centr_4/2;
 Image1->Canvas->MoveTo(0,0);
 Image1->Canvas->LineTo(size_X,size_Y);
 Image1->Canvas->MoveTo(size_X,0);
 Image1->Canvas->LineTo(0,size_Y);
 Image1->Canvas->MoveTo(0,centr_Y);
 Image1->Canvas->LineTo(size_X,centr_Y);
 Image1->Canvas->MoveTo(centr_X,0);
 Image1->Canvas->LineTo(centr_X,size_Y);
 Image1->Canvas->MoveTo(0,centr_Y);
 Image1->Canvas->LineTo(centr_X,0);
 Image1->Canvas->LineTo(size_X,centr_Y);
 Image1->Canvas->LineTo(centr_X,size_Y);
 Image1->Canvas->LineTo(0,centr_Y);
 Image1->Canvas->MoveTo(0,size_Y);
 Image1->Canvas->LineTo(size_X,centr_Y);
 Image1->Canvas->MoveTo(size_X,size_Y);
 Image1->Canvas->LineTo(0,centr_Y);
 Image1->Canvas->MoveTo(size_X,0);
 Image1->Canvas->LineTo(0,centr_Y);
 Image1->Canvas->MoveTo(0,0);
 Image1->Canvas->LineTo(size_X,centr_Y);
 Image1->Canvas->MoveTo(centr_X,size_Y);
 Image1->Canvas->LineTo(0,0);
 Image1->Canvas->MoveTo(centr_X-centr_4,centr_Y);
 Image1->Canvas->LineTo(centr_X,centr_Y-centr_4);
 Image1->Canvas->LineTo(centr_X+centr_4,centr_Y);
 Image1->Canvas->LineTo(centr_X,centr_Y+centr_4);
 Image1->Canvas->LineTo(centr_X-centr_4,centr_Y);
 Image1->Canvas->MoveTo(centr_X+centr_4,centr_Y);
 Image1->Canvas->LineTo(centr_X,0);
 Image1->Canvas->MoveTo(centr_X+centr_4,centr_Y);
 Image1->Canvas->LineTo(size_X,0);
 Image1->Canvas->MoveTo(centr_X+centr_4,centr_Y);
 Image1->Canvas->LineTo(size_X,size_Y);
 Image1->Canvas->MoveTo(centr_X+centr_4,centr_Y);
 Image1->Canvas->LineTo(centr_X,size_Y);
 Image1->Canvas->MoveTo(centr_X+centr_4,centr_Y);
 Image1->Canvas->LineTo(0,size_Y);
 Image1->Canvas->MoveTo(centr_X+centr_4,centr_Y);
 Image1->Canvas->LineTo(0,0);
 Image1->Canvas->MoveTo(centr_X-centr_4,centr_Y);
 Image1->Canvas->LineTo(0,0);
 Image1->Canvas->MoveTo(centr_X-centr_4,centr_Y);
 Image1->Canvas->LineTo(centr_X,0);
 Image1->Canvas->MoveTo(centr_X-centr_4,centr_Y);
 Image1->Canvas->LineTo(size_X,0);
 Image1->Canvas->MoveTo(centr_X-centr_4,centr_Y);
 Image1->Canvas->LineTo(size_X,size_Y);
 Image1->Canvas->MoveTo(centr_X-centr_4,centr_Y);
 Image1->Canvas->MoveTo(centr_X-centr_4,centr_Y);
 Image1->Canvas->LineTo(0,size_Y);
 Image1->Canvas->MoveTo(centr_X,centr_Y-centr_4);
 Image1->Canvas->LineTo(0,size_Y);
 Image1->Canvas->MoveTo(centr_X,centr_Y-centr_4);
 Image1->Canvas->LineTo(size_X,size_Y);
 Image1->Canvas->MoveTo(centr_X,centr_Y+centr_4);
 Image1->Canvas->LineTo(0,0);
 Image1->Canvas->MoveTo(centr_X,centr_Y+centr_4);
 Image1->Canvas->LineTo(size_X,0);
 Image1->Canvas->MoveTo(centr_X-centr_8,centr_Y-centr_8);
 Image1->Canvas->LineTo(centr_X+centr_8,centr_Y-centr_8);
 Image1->Canvas->LineTo(centr_X+centr_8,centr_Y+centr_8);
 Image1->Canvas->LineTo(centr_X-centr_8,centr_Y+centr_8);
 Image1->Canvas->LineTo(centr_X-centr_8,centr_Y-centr_8);
 Image1->Canvas->MoveTo(0,centr_4);
 Image1->Canvas->LineTo(centr_4,centr_4);
 Image1->Canvas->LineTo(centr_4,0);
 Image1->Canvas->LineTo(0,centr_4);
 Image1->Canvas->MoveTo(size_X,centr_4);
 Image1->Canvas->LineTo(size_X-centr_4,centr_4);
 Image1->Canvas->LineTo(size_X-centr_4,0);
 Image1->Canvas->LineTo(size_X,centr_4);
 Image1->Canvas->MoveTo(size_X,size_Y-centr_4);
 Image1->Canvas->LineTo(size_X-centr_4,size_Y-centr_4);
 Image1->Canvas->LineTo(size_X-centr_4,size_Y);
 Image1->Canvas->LineTo(size_X,size_Y-centr_4);
 Image1->Canvas->MoveTo(0,size_Y-centr_4);
 Image1->Canvas->LineTo(centr_4,size_Y-centr_4);
 Image1->Canvas->LineTo(centr_4,size_Y);
 Image1->Canvas->LineTo(0,size_Y-centr_4);




}