Создание игры(2d)

bool first_shoot = true;
 
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Key==VK_LBUTTON)
   {IsLMCDown = true;}
}
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Key==VK_LBUTTON)
   {first_shoot = true;
   IsLMCDown = false;}
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
........
if (IsLMCDown == true) {
    if (first_shoot == true) {
          Shoot();
          first_shoot = false;}
  tick_wpn_count += 1;
          if(tick_wpn_count == fire_speed){
          Shoot();
          tick_wpn_count = 0;}
  }
//Это, если игрок будет жать LMC(Левая кнопка мыши),то выстрелы будут происходить через определённое время в зависимости от скорострельности,если игрок нажал на LMC 1 выстрел происходит незамедлительно
 
void __fastcall Shoot()
{
FPoint * Bullet = new FPoint[2];
Bullet[0] = FPoint(0,0);
Bullet[1] = FPoint(100,100);
Bul.p = Bullet;
Bul.count=2;
Bul.SetOriginPoint(Svalker->Width+52,Svalker->Height+100);
Bul.x=SvPosX;
Bul.y=SvPosY;
Bul.Rotate(SvAng+130+(Razbros*2-Razbros));
SetViewportOrgEx(BG->Canvas->Handle,Svalker->Width+52,Svalker->Height+100,NULL);
RotateDC(BG->Canvas->Handle,SvAng);
BG->Canvas->Draw(SvPosX,SvPosY,Muz_flash);
SetViewportOrgEx(BG->Canvas->Handle,0,0,NULL);
RotateDC(BG->Canvas->Handle,0);
}

Bullet[1] = FPoint(0,0);

FPoint * Bullet = new FPoint[2];

void __fastcall Shoot()
{
FPoint * Bullet = new FPoint[2];
Bullet[0] = FPoint(0,0);
Bullet[1] = FPoint(100,100);
Bul.p = Bullet;
Bul.count=2;
Bul.SetOriginPoint(Svalker->Width+52,Svalker->Height+100);
Bul.x=SvPosX;
Bul.y=SvPosY;
Bul.Rotate(SvAng+130+(Razbros*2-Razbros));

SetViewportOrgEx(BG->Canvas->Handle,0,0,NULL);
RotateDC(BG->Canvas->Handle,0);

bool LineHitTest(FPoint*p1,FPoint*p2)
        {
        int l1x1=p1->x;
        int l1y1=p1->y;
        int l1x2=p2->x;
        int l1y2=p2->y;
        int tx=x-Ox;
        int ty=y-Oy;
        for(int i=0;i<count;i++)
                        {
                        int l2x1=p[i].x+tx;
                        int l2y1=p[i].y+ty;
                        int l2x2;
                        int l2y2;
                        if(i==(count-1))
                                {
                                l2x2=p[0].x;
                                l2y2=p[0].y;
                                }else
                                {
                                l2x2=p[i+1].x;
                                l2y2=p[i+1].y;
                                }
                        l2x2+=tx;
                        l2y2+=ty;
                        int v1,v2,v3,v4;
                        v1=(l2x2-l2x1)*(l1y1-l2y1)-(l2y2-l2y1)*(l1x1-l2x1);
                        v2=(l2x2-l2x1)*(l1y2-l2y1)-(l2y2-l2y1)*(l1x2-l2x1);
                        v3=(l1x2-l1x1)*(l2y1-l1y1)-(l1y2-l1y1)*(l2x1-l1x1);
                        v4=(l1x2-l1x1)*(l2y2-l1y1)-(l1y2-l1y1)*(l2x2-l1x1);
                        bool result=((v1*v2)<0)&&((v3*v4)<0);
                        if(result==true)
                                return true;
                        }
        return false;
        }

bool HitTest(CRegion*reg)
        {
        int f1x=x;
        int f1y=y;
        int f2x=reg->x;
        int f2y=reg->y;
        int distance=sqrt(((f1x-f2x)*(f1x-f2x))+((f1y-f2y)*(f1y-f2y)));
        if(distance>(reg->ConvexRadius+ConvexRadius))return false;//Дальше можно не проверять, так как объекты находятся слишком далеко друг от друга
        //Если не вышли ранее, то это значит, что у фигур пересекаются их охватывающие окружности
        //Будем проверять пересечения каждой линии
        for(int j=0;j<reg->count;j++)
                {
                int l1x1=reg->p[j].x+reg->x-reg->Ox;
                int l1y1=reg->p[j].y+reg->y-reg->Oy;
                int l1x2;
                int l1y2;
                if(j==(reg->count-1))
                        {
                        l1x2=reg->p[0].x;
                        l1y2=reg->p[0].y;
                        }else
                        {
                        l1x2=reg->p[j+1].x;
                        l1y2=reg->p[j+1].y;
                        }
                l1x2+=reg->x-reg->Ox;
                l1y2+=reg->y-reg->Oy;
                for(int i=0;i<count;i++)
                        {
                        int l2x1=p[i].x+x-Ox;
                        int l2y1=p[i].y+y-Oy;
                        int l2x2;
                        int l2y2;
                        if(i==(count-1))//Тута была ошибка
                                {
                                l2x2=p[0].x;
                                l2y2=p[0].y;
                                }else
                                {
                                l2x2=p[i+1].x;
                                l2y2=p[i+1].y;
                                }
                        l2x2+=x-Ox;
                        l2y2+=y-Oy;
                        int v1,v2,v3,v4;
                        v1=(l2x2-l2x1)*(l1y1-l2y1)-(l2y2-l2y1)*(l1x1-l2x1);
                        v2=(l2x2-l2x1)*(l1y2-l2y1)-(l2y2-l2y1)*(l1x2-l2x1);
                        v3=(l1x2-l1x1)*(l2y1-l1y1)-(l1y2-l1y1)*(l2x1-l1x1);
                        v4=(l1x2-l1x1)*(l2y2-l1y1)-(l1y2-l1y1)*(l2x2-l1x1);
                        bool result=((v1*v2)<0)&&((v3*v4)<0);
                        if(result==true)
                                return true;
                        }
                }
        return false;
        }

Muz_flash = new Graphics::TBitmap();
Muz_flash->LoadFromFile("E:\\Svalker Work\\Project\\Textures\\Svk\\Weapons\\Ak 74\\Muz\\1.bmp");
Muz_flash->Transparent = 1;
Muz_flash->TransparentColor=RGB(255,0,255);

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
......
if (shoot_draw == true) {
  BG->Canvas->Draw(100,100,Muz_flash);
  Form1->Canvas->Draw(0,0,BG);
  shoot_draw = false;
 }

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
BG->Canvas->Draw(100,100,Muz_flash);
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
BG->Canvas->Draw(100,100,Muz_flash);
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
.......//Не работает.
if (shoot_draw == true) {
  BG->Canvas->Draw(100,100,Muz_flash);
  Form1->Canvas->Draw(0,0,BG);
  shoot_draw = false;
 }
......
BG->Canvas->Draw(100,100,Muz_flash);
//Вот так работает,но тогда он всегда отображаеться,а мне это не надо.
}

Key==VK_LBUTTON;
Key==VK_RBUTTON;

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
if(Button== mbLeft)
        {
        ...
        }
if(Button==mbRight)
        {
        ...
        }
}