Японский кроссворд

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Image1->Canvas->Pen->Color=clBlue;
for (int i=0;i<Image1->Width;i+=10)//здесь строим сетку 10*10
{
 Image1->Canvas->MoveTo(0,i);
 Image1->Canvas->LineTo(Image1->Height,i);
}
for (int i=0;i<Image1->Height;i+=10)//
{
 Image1->Canvas->MoveTo(i,0);
 Image1->Canvas->LineTo(i,Image1->Width);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
int x=(X/10)*10,y=(Y/10)*10;//узнанали и округлили координаты
if (Shift.Contains(ssLeft))//если нажата левая
{
Image1->Canvas->Brush->Color=clBlack;//зарисовываем
Image1->Canvas->Rectangle(x,y,x+11,y+11);
}
if (Shift.Contains(ssRight))//если нажата правая
{
Image1->Canvas->Brush->Color=clWhite;//очищаем
Image1->Canvas->Rectangle(x,y,x+11,y+11);
}
}