Исправить ошибку

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//bool fall;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
class ball        //мяч
{
    double x,y;
    double sx,sy;     // скорости по осям
    double m;
    double g;
    double r;
    TImage *img;
    public:
    ball(TImage *i,double x, double y)
    {
    r = 10;
        this->x = x;
        this->y= y;
        sx = 0;
        sy = 0;
         m = 10;
         g = 10;
         img = i;
    }
 
    void push(double force)
    {
        sx = force / m;
    }
    void move()
    {
        x+=sx;
        y+=sy;
       //   if(fall)
        //sy = 1  ;
    }
 
    void draw()
    {
        move();
        img->Canvas->Pen->Color=clRed;
        img->Canvas->Ellipse(x-r,y-r,x+r,y+r);
    }
    friend class pusk;
    friend class prp;
};
 class prp    // стенка
{
    int x,y;
    int height;
    ball *b;
    public:
    prp(ball *b1,int x, int y)
    {
        b = b1;
        this->x = x;
        this->y = y;
        height = 100;
    }
 
    void proverka()
    {
        if(b->x+b->r>x && b->x+b->r<(x+150) && b->y>y-height && b->y<y)  // отражение от верт стены
        {
            b->sx = -b->sx*0.8;
            b->x=x-b->r;
 
        }
        if(b->y+b->r>(210-b->r))b->sy=-b->sy*0.9;  // нижняя стенка
    }
 
    void draw()
    {
        proverka();
         b->img->Canvas->Rectangle(x,y-height,x+10,y);
    }
};
class pusk     // пусковой крюк
{
   int x,y;
   int lenth;
   int a;
   int f;       // сила точка
   ball *b;
    TImage *img;
    public:
     pusk(ball *bb,int len,int x, int y, int a, TImage *i)
     {
     b = bb;
         this->x = x;
         this->y = y;
         this->a = a;
         img = i;
         lenth = len;
         a = 20;
         f = 0;
 
         b->x = x+a+b->r;
         b->y = y-b->r;
     }
   void draw()
   {
         img->Canvas->MoveTo(x,y);
         img->Canvas->LineTo(x+lenth,y);
 
         img->Canvas->MoveTo(x+a-f,y);
         img->Canvas->LineTo(x+a-f,y-20);
 
         img->Canvas->MoveTo(x,y);
         img->Canvas->LineTo(x+(a-f)/3,y-20);
 
         img->Canvas->LineTo(x+2*(a-f)/3,y);
         img->Canvas->LineTo(x+(a-f),y-20);
 
         b->draw();
   }
 
   void push()
   {
      f++;
   }
 
   void start(ball *b)
   {
       if(b->sx == 0)
       {
       b->push(f*f);
       }
       f = 0;
   }
 
   void proverka(bool bb)
   {
   if(b->y+b->r < img->Height)
        if((b->x> x+lenth+8) || bb&&b->y<y&&b->x<=x)
            b->sy=b->sy+b->g/100 ;
            if( b->y>y)
            { //b->sy = -b->sy*0.8;
           //   b->y=y-b->r;
 
            }
 
 
   }
 
   void move(int d)
   {
       y+=d;
       if(b->sx == 0)
       b->y+=d;
 
       else
       {
            proverka(1);
       }
   }
};
 
ball *b;
pusk *s;
prp *p;
void __fastcall TForm1::FormKeyPress(TObject *Sender, wchar_t &Key)
{
if(Key == ' ')               // запуск пробелом
            s->push();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
  if(Key == ' ')
            s->start(b);
            if(Key == VK_UP)
            s->move(-5);
            if(Key == VK_DOWN)
            s->move(5);
 
            if(Key == 'r' || Key =='R')    // возвращение в исх полож
            {
 
delete s;
delete b;
delete p;
b  = new ball(Image1,10+30,100-10);
s = new pusk(b,100,10,100,20,Image1);
p = new prp(b,350,150);
 
 
            }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
b  = new ball(Image1,10+30,100-10);
s = new pusk(b,100,10,100,20,Image1);
p = new prp(b,350,150);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Image1->Canvas->FillRect(TRect(0,0,1000,1000));
 
    s->draw();
 
    s->proverka(0);
 
    p->draw();
}
//---------------------------------------------------------------------------

   void proverka(bool bb)
   {
       if((b->x > x+lenth+5) || (b->x < x+lenth+5 && b->y>y-10)) //
         b->sy=b->sy+b->g/100 ;
   }