Прыжки

#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
Graphics::TBitmap *Dude;
int x=225,y=85;  // Координаты нашего обьекта
int t=0;
Graphics::TBitmap *bb;
int b=5,c=85;
Graphics::TBitmap* dump=new Graphics::TBitmap;
int AnimStep=1; //Кадр анимации
String Anim="n";
int Where=0;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
 
{
if( Key == VK_UP) Where=5;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
  Dude=new Graphics::TBitmap;
  Dude->LoadFromFile("n1.bmp");
   Dude->Transparent=true;
  bb=new Graphics::TBitmap;
   bb->LoadFromFile("n1.bmp");
   bb->Transparent=true;
 
   dump->Width=Width;
   dump->Height=Height;
   dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
 
if( Key == VK_UP) Where=0;
Dude->LoadFromFile("n1.bmp");           //Загружаем кадр "простоя" обьекта
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer2Timer(TObject *Sender)
{
if( Where !=0 )     //Если задано направление
  {
        if( Where==5)           //Вверх
  {
 
 for(int i=1;i<52;i++) {
 Sleep(10);
                    y=-t*35+t*t*3/4; //формула!
t++;
if(y>85)
t=0;
 dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
                  dump->Canvas->Draw(x,y,Dude);
                  dump->Canvas->Draw(b,c,bb);              //Выводим на форму
                  Canvas->Draw(0,0,dump);
                  }
  }
 }
      dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
                  dump->Canvas->Draw(x,y,Dude);
                  dump->Canvas->Draw(b,c,bb);              //Выводим на форму
                  Canvas->Draw(0,0,dump);
}