Разработать программу, реализующую движение шарика в плоскости экрана

a = Edit1->Text.ToDouble();
b = Edit2->Text.ToDouble();
c = b*cos(a);
d = b*sin(a);
x = c*t;
y = (d*t)-(10*(t^2)/2);
//
Shape1->Left =Shape1->Left+x;
Shape1->Top = Shape1->Top+y;

х = TrackBar->Position;
Shape1->Left =Shape1->Left+х;
Shape1->Top = Shape1->Top+х;

TrackBar1->Min = 100;
TrackBar1->Max = 1000;
TImer1->Interval = TrackBar->Position;

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1*Form1;
 
int x,y,iTI;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Form1->Caption = "Вольтанутая пуля";
  Form1->Position = poDesktopCenter;
//
  Label1->Left = 6;
  Label1->Top = 6;
  Label1->Caption = "Поймай пулю мышкой\nи нажми левую кнопку.";
//
  TrackBar1->Left = Form1->Width-Button1->Width*4-36;
  TrackBar1->Top = 5;
  TrackBar1->ShowHint = true;
  TrackBar1->Hint = "Изменение скорости полёта пули";
  TrackBar1->PositionToolTip = ptBottom;
  TrackBar1->Min = 1;
  TrackBar1->Max = 20;
  TrackBar1->Frequency = 2;
  TrackBar1->Position = 10;
//
  Button1->Left = Form1->Width-Button1->Width*2-30;
  Button1->Top = 6;
  Button1->Caption = "Огонь!";
//
  Button2->Left = Form1->Width-Button1->Width-24;
  Button2->Top = 6;
  Button2->Caption = "Линяем...";
//
  PaintBox1->Height = Form1->ClientHeight-TrackBar1->Height-6;
  PaintBox1->Align = alBottom;
  PaintBox1->ParentColor = false;
  PaintBox1->Color = clWhite;
//
  Timer1->Interval = 1000;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  PaintBox1->Repaint();
  PaintBox1->Canvas->Pen->Width = 2;
  PaintBox1->Canvas->Pen->Color = clRed;
  PaintBox1->Canvas->Brush->Color = clYellow;
  PaintBox1->Canvas->Ellipse(x,y,x+20,y+20);
  randomize();
  if(x <= PaintBox1->Width-20) {
    x += random(TrackBar1->Position);
  }
  else {
    x -= (PaintBox1->Width-TrackBar1->Position-20);
  }
  if(y <= PaintBox1->Height-20) {
    y += random(TrackBar1->Position);
  }
  else {
    y -= random(PaintBox1->Height-TrackBar1->Position-20);
  }
  Label1->Caption = "Поймай пулю мышкой.\nПуля: X = "+IntToStr(x)+
                    ", Y = "+IntToStr(y)+
                    ".\nИнтервал таймера = "+IntToStr(iTI)+".";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Timer1->Enabled = false;
  TrackBar1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  if ((X>x&&X<x+20)&&(Y>y&&Y<y+20)) {
    ShowMessage("Поймал!");
    Timer1->Enabled = false;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
  Timer1->Enabled = false;
  Timer1->Interval = 1000/TrackBar1->Position;
  iTI = Timer1->Interval;
  Timer1->Enabled = true;
}
//---------------------------------------------------------------------------