Ошибка - Access vialation at address 0045FA6E

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include "myclasses.cpp"
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
const float M_RAD_CONV=M_PI/180.0;       
 
Graphics::TBitmap*background;
 
float speed=3;
float RotSpeed=3;
 
WORD RBtl=VK_LEFT;//Red Button Turn Left
WORD RBtr=VK_RIGHT;//Red Button Turn Right
WORD RBrf=VK_UP;//Red Button Run Forward
WORD RBrb=VK_DOWN;//Red Button Run Back
 
 
WORD RPtl=false;//Red Pressed Turn Left
WORD RPtr=false;//Red Pressed Turn Right
WORD RPrf=false;//Red Pressed Run Forward
WORD RPrb=false;//Red Pressed Run Back
 
class Tank
{
private:
     float X,Y,angle;
     Graphics::TBitmap*img;
public:
//Setters
     void setParams(float X,float Y,float angle,char* img)
     {
          this->X=X;
          this->Y=Y;
          this->angle=angle;
          this->img=new Graphics::TBitmap();
          this->img->LoadFromFile(img);
     }
     void turn(){if(RBtl==true){angle-=RotSpeed;};if(RBtr==true){angle+=RotSpeed;} }
     void run(){if(RPrf==true){this->X+=cos(M_RAD_CONV*angle)*speed;this->Y+=sin(M_RAD_CONV*angle)*speed;};if(RPrb==true){this->X-=cos(M_RAD_CONV*angle)*speed;this->Y-=sin(M_RAD_CONV*angle)*speed;}}
     void checkFormBorder()
     {
          if(X<-50)X=Form1->Width+50;
          if(Y<-50)Y=Form1->Height+50;
          if(X>Form1->Width+50)X=-50;
          if(Y>Form1->Height+50)Y=-50;
     }
//Getters
     float getX(){return X;}
     float getY(){return Y;}
     float getAngle(){return angle;}
     Graphics::TBitmap* getImg(){return img;}
};
//Tanks
Tank red;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//Background
background=new Graphics::TBitmap();
background->Width=Form1->Width;
background->Height=Form1->Height;
//Tanks 
red.setParams(100,100,10,"tank_r.bmp");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//Draw background
background->Canvas->FillRect(Rect(0,0,background->Width,background->Height));
//Rotate
RotateDC(background->Canvas->Handle,red.getAngle());
SetViewportOrgEx(background->Canvas->Handle,red.getX(),red.getY(),NULL);
background->Canvas->Draw(-83,-53,red.getImg());
//ReDraw
SetViewportOrgEx(background->Canvas->Handle,0,0,NULL);
RotateDC(background->Canvas->Handle,0);
Form1->Canvas->Draw(0,0,background);
//Run
red.turn();
red.run();
red.checkFormBorder();
}
 
 
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==RBtr){RPtr=true;}
if(Key==RBtl){RPtl=true;}
if(Key==RBrf){RPrf=true;}
if(Key==RBrb){RPrb=true;}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==RBtr){RPtr=false;}
if(Key==RBtl){RPtl=false;}
if(Key==RBrf){RPrf=false;}
if(Key==RBrb){RPrb=false;}
}
//---------------------------------------------------------------------------

#include "myclasses.cpp"