Написание в билдере игры ЧИСЛО

Unit1.h
//-----------
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
        void  FormZagruzka();

Unit1.cpp
//-----------
TForm1 *Form1;
int pole[7][5]={{20,0,-1,10,10}, //20-синии, 10-красные
                {20,0,-1,10,10}, //0-пустые, -1-запрещённые
                {20,20,-1,10,10},
                {20,20,-1,10,10},
                {20,20,-1,10,10},
                {20,20,-1,0,10},
                {20,20,-1,0,10}};
int x,y,igrok=0;//кординаты и значение переносимого камня
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->DoubleBuffered=true;
Image1->Canvas->MoveTo(50,0);//Image 350*450
Image1->Canvas->LineTo(50,350);
Image1->Canvas->MoveTo(400,0);
Image1->Canvas->LineTo(400,350);
FormZagruzka();
}
//перерисовка поля----------------------------------------------------------
void TForm1::FormZagruzka()//void  FormZagruzka();
{
for (int i=0;i<7;i++)
{
  for (int j=0;j<5;j++)
  {
    switch(pole[i][j])
    {
      case -20: Image1->Canvas->Brush->Color=(TColor)RGB(150,150,255);
                Image1->Canvas->Ellipse(i*50+51,j*50+1,i*50+50+48,j*50+48); break;
      case -10: Image1->Canvas->Brush->Color=(TColor)RGB(255,150,150);
                Image1->Canvas->Ellipse(i*50+51,j*50+1,i*50+50+48,j*50+48); break;
      case 0: Image1->Canvas->Brush->Color=(TColor)RGB(255,255,255);
              Image1->Canvas->FillRect(Rect(i*50+51,j*50+1,i*50+50+48,j*50+48)); break;
      case 10: Image1->Canvas->Brush->Color=(TColor)RGB(255,00,00);
               Image1->Canvas->Ellipse(i*50+51,j*50+1,i*50+50+48,j*50+48); break;
      case 20: Image1->Canvas->Brush->Color=(TColor)RGB(00,00,255);
               Image1->Canvas->Ellipse(i*50+51,j*50+1,i*50+50+48,j*50+48); break;
    }
  }
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
x=(X-50)/50;
y=Y/50;
if (pole[x][y]>5)
{
  igrok=pole[x][y];//запоминаем значение
  pole[x][y]=-pole[x][y];//и меняем ...
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 
if (Shift.Contains(ssLeft))
{
Image1->Canvas->Brush->Color=(TColor)RGB(255,255,255);//
Image1->Canvas->FillRect(Rect(51,0,398,350));//очищаем поле
FormZagruzka();// перерисовываем
  switch(igrok)//рисуем переносимый камень
  {
    case 10: Image1->Canvas->Brush->Color=(TColor)RGB(255,00,00); Image1->Canvas->Ellipse(X-24,Y-24,X+24,Y+24); break;
    case 20: Image1->Canvas->Brush->Color=(TColor)RGB(00,00,255); Image1->Canvas->Ellipse(X-24,Y-24,X+24,Y+24); break;
  }
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
x=(X-50)/50;
y=Y/50;
if (pole[x][y]==0)//если ячейка пустая
{
  pole[x][y]=igrok;//заполняем
  for (int i=0;i<5;i++)
  {
   for (int j=0;j<7;j++)
   {
     if (pole[j][i]<-5) pole[j][i]=0;//и очищаем где стояла
   }
  }
}
else        //иначе
{
  for (int i=0;i<5;i++)
  {
   for (int j=0;j<7;j++)
   {
     if (pole[j][i]<-5) pole[j][i]=igrok;//ставим назад
   }
  }
}
Image1->Canvas->Brush->Color=(TColor)RGB(255,255,255);
Image1->Canvas->FillRect(Rect(51,0,398,350));
FormZagruzka();
igrok=0;
}

case 10: Image1->Canvas->Brush->Color=(TColor)RGB(255,00,00);//цвет круга//синий 
          Image1->Canvas->Ellipse(X-24,Y-24,X+24,Y+24);//рисование круга
          break;