Нужна помощь в Создании игры арканоид

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const int n=23; //количество столбцов блоков
const int m=6; //количество строк
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
class padClass         //Объявляем класс для доски
{
   public:
    void draw();
    int x;
    int y;
};
void padClass::draw()                             //функция рисования доски
{
Form1->Canvas->Brush->Color=clRed;
Form1->Canvas->Rectangle(x-50,y,x+50,y-10);
Form1->Canvas->Rectangle(x-1,y,x+1,y-10);
Form1->Canvas->Brush->Color=clWhite;
 
}
class ballClass //Класс для шарика
{
    public:
     void draw();
 
     int x;
     int y;
     int vx;                      //изменение координаты  шарика по х
     int vy;                      //изменение координаты шарика по y
     int r;
};
void ballClass::draw()   //Функция рисования шарика
{
Form1->Canvas->Brush->Color=clBlue;
Form1->Canvas->Ellipse(x-r,y-r,x+r,y+r);
}
padClass pad;  //создаем объекты  шарика и доски
ballClass bal;
class bloksClass  //Вот тут беда, класс блоков
{
   public:
    int x;
    int y;
    int r;  //размер блока
    void draw();
    bool vis; //Условие видимости блока
};
void bloksClass::draw()                //Рисование блока
{
if(vis){
    Form1->Canvas->Brush->Color=clGreen;
    Form1->Canvas->Rectangle(x-r,y+r,x+r,y-r);}
}
bloksClass bloks[n][m];  //создаем массив из блоков
//------------------------------------------------------------------------
void getnewxy()  //функция получения новых координат
{
bal.x+=bal.vx;
bal.y+=bal.vy;
if(bal.y+bal.r*2>Form1->Height)
        Form1->Timer1->Enabled=0;
if(bal.y-bal.r<0)
        bal.vy=-bal.vy;
if(bal.x+bal.r>Form1->Width)
        bal.vx=-bal.vx;
if(bal.x-bal.r<0)
        bal.vx=-bal.vx;
if(bal.x>pad.x-50 && bal.x<pad.x+50 && bal.y>pad.y-20 && bal.y<pad.y+bal.r)
{
 bal.vy=-bal.vy;
}
 
}
 
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Canvas->Brush->Color=Form1->Color; //чистим экран
Canvas->FillRect(Rect(0,0,Form1->Width,Form1->Height));
pad.draw();  //рисуем доску
bal.draw();  //рисуем шарик
 
for(int i=0;i<n;i++)       //рисуем блоки
        for(int j=0; j<m; j++)   //кстати только они моргают
      bloks[i][j].draw();      //без них все нормально
getnewxy();
 
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
pad.x=X;    //меняем положение доски относительно координаты мыши
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Se0nder) //пункт меню "новая игра"
{
Form1->Timer1->Enabled=1; //включаем таймер
pad.y=420;   //положение доскки по Y
bal.vx=5;    //скорость
bal.vy=5;   //шара
bal.x =50; bal.y =50;//начальные координаты шара
bal.r=10; //радиус шара
bloks[0][0].x=25;      //координаты первого блока
bloks[0][0].y=25;
Form1->DoubleBuffered=True;  // вот и двойная буферизация
for(int i=1; i<n;i++) //цикл для  блоков
        for(int j=1;j<m;j++)
         {
        bloks[i][j].x=bloks[0][0].x+i*25; //координаты остальных блоков
        bloks[i][j].y=bloks[0][0].y+j*25;
        bloks[i][j].r=10;  //и их размер
 
        bloks[i][j].vis=true; // и видимы ли они  }
}
//---------------------------------------------------------------------------