Подскажите как сделать несколько шашек в игре

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x;
int y;
int x_mouse;
int y_mouse;
bool q=False;
bool w=False;
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
x=0;
y=1000;
Form1->Canvas->MoveTo(0,0);
int xe=0;
int ye=0;
        for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
ye=50;
xe=50;
         for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
xe=0;
ye=100;
        for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
ye=150;
xe=50;
         for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
xe=0;
ye=200;
        for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
ye=250;
xe=50;
         for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
xe=0;
ye=300;
        for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
ye=350;
xe=50;
         for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
xe=0;
ye=400;
        for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
ye=450;
xe=50;
         for (int i=0;i<5;i++)
        {
        Canvas->Brush->Color=clBlack;
        Canvas->Rectangle(xe,ye,xe+50,ye+50);
        xe+=100;
        }
Form1->Canvas->MoveTo(0,0);
  for(int i=0;i<10;i++)
  {
   Form1->Canvas->LineTo(x,y);
   x=x+50;
   Form1->Canvas->MoveTo(x,0);
  }
  y=0;
  x=1000;
   for(int i=0;i<10;i++)
  {
   Form1->Canvas->LineTo(x,y);
   y=y+50;
   Form1->Canvas->MoveTo(0,y);
  }
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
q=True;
Form1->Image1->Canvas->Pen->Color=clBlack;
Form1->Image1->Canvas->MoveTo(1,1);
Form1->Image1->Canvas->LineTo(1,46);
Form1->Image1->Canvas->LineTo(46,46);
Form1->Image1->Canvas->LineTo(46,1);
Form1->Image1->Canvas->LineTo(1,1);
w=True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
if (q!=False)
{
q=False;
Form1->Image1->Canvas->Pen->Color=clWhite;
Form1->Image1->Canvas->MoveTo(1,1);
Form1->Image1->Canvas->LineTo(1,46);
Form1->Image1->Canvas->LineTo(46,46);
Form1->Image1->Canvas->LineTo(46,1);
Form1->Image1->Canvas->LineTo(1,1);
 
}
 if (w!=False)
{
int xq=Form1->Image1->Left+Form1->Left;
int yq=Form1->Image1->Top+Form1->Top;
TPoint cPt;
GetCursorPos(&cPt);
y_mouse=int(cPt.y);
GetCursorPos(&cPt);
x_mouse=int(cPt.x);
w=False;
if (y_mouse<=Form1->Image1->Top+Form1->Top)
{
 if (x_mouse<Form1->Image1->Left+Form1->Left)
 {
  xq-=50;
 }
 if (x_mouse>Form1->Image1->Left+Form1->Left)
 {
  xq+=50;
 }
 yq-=50;
}
 
if (y_mouse>=Form1->Image1->Top+Form1->Top)
{
 if (x_mouse<Form1->Image1->Left+Form1->Left)
 {
  xq-=50;
 }
 if (x_mouse>Form1->Image1->Left+Form1->Left)
 {
  xq+=50;
 }
 yq+=50;
}
Form1->Image1->Left=xq-Form1->Left;
Form1->Image1->Top=yq-Form1->Top;
}
}
//---------------------------------------------------------------------------