Прорисовать шахматное поле в builder c++

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const dif = 25;
UINT difX, difY, sizeX, sizeY;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  // ClientWidth = 850;
  // ClientHeight = 850;
  // BorderStyle = bsSingle;
  sizeX = (ClientWidth-2*dif)/8, sizeY = (ClientHeight-2*dif)/8;  // размеры клеток
}
//---------------------------------------------------------------------------
void cell (char ch, UINT num)  // выбор клетки
{
  Form1->OnPaint(Form1);
 
  TColor color = clBlue;
  Form1->Canvas->Brush->Color = color;
  Form1->Canvas->Pen->Color = color;
  ch -= 'a';
  difX = dif+ch%8*sizeX;
  difY = dif+(8-num%9)*sizeY;
  Form1->Canvas->Rectangle(difX, difY, difX+sizeX, difY+sizeY);
// вызов функции, к примеру,
// cell('f', 4);
// закрашивает соответствующую ячейку цветом, заданным выше (в данном случае - синий)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
  TColor color;
  for (int i = 0; i < 64; i++)  // рисуем "доску"
  {
    (i%2==0 && i/8%2==0) || (i%2==1 && i/8%2==1) ? color = clSilver : color = clGray;
    Canvas->Brush->Color = color;
    Canvas->Pen->Color = color;
    // смещения
    difX = dif+i%8*sizeX;
    difY = dif+i/8*sizeY;
    Canvas->Rectangle(difX, difY, difX+sizeX, difY+sizeY);
  }
 
  Canvas->Brush->Color = Color;
  for (int i = 1; i <= 8; i++)  // "рисуем" буквы и цифры
  {
    Canvas->TextOutA(dif+(i-0.5)*sizeX, dif/2, char('a'-1+i));
    Canvas->TextOutA(dif+(i-0.5)*sizeX, ClientHeight-dif, char('a'-1+i));
 
    Canvas->TextOutA(dif/2, dif+(i-0.5)*sizeY, char('8'+1-i));
    Canvas->TextOutA(ClientWidth-dif*3/4, dif+(i-0.5)*sizeY, char('8'+1-i));
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if (X>dif && Y>dif && X<ClientWidth-dif && Y<ClientHeight-dif)
  {
    Form1->OnPaint(Form1);
 
    TColor color;
    switch (Button)
    {
      case mbLeft:
        color = clRed;
        break;
      case mbRight:
        color = clGreen;
        break;
      case mbMiddle:
        color = clYellow;
        break;
    }
    Canvas->Brush->Color = color;
    Canvas->Pen->Color = color;
// рисование эллипсов разных цветов в зависимости от "кликнутой" кнопки мыши в клетке, по которой кликнули
    Canvas->Ellipse(dif+((X-dif)/sizeX+0.1)*sizeX, dif+((Y-dif)/sizeY+0.2)*sizeY, dif+((X-dif)/sizeX+0.9)*sizeX, dif+((Y-dif)/sizeY+0.8)*sizeY);
  }
}
//---------------------------------------------------------------------------