Реализовать проект

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit29.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm29 *Form29;
Graphics::TBitmap* back=new Graphics::TBitmap();
Graphics::TBitmap* sprite=new Graphics::TBitmap();
Graphics::TBitmap* kadr=new Graphics::TBitmap();
int x,y;
 
//---------------------------------------------------------------------------
__fastcall TForm29::TForm29(TComponent* Owner)
    : TForm(Owner)
{
// загрузить фоновый рисунок из bmp-файла
//back
back->LoadFromFile("D:\\ПРОЕКТ\\ch.bmp");
// установить размер клиентской (рабочей) области формы
// в соответствии с размером фонового рисунка
ClientWidth = back->Width;
ClientHeight = back->Height;
// загрузить картинку
sprite = new Graphics::TBitmap();
sprite->LoadFromFile("D:\\ПРОЕКТ\\bk.bmp");
sprite->Transparent = true;
// сформировать кадр
kadr=new Graphics::TBitmap();
kadr->LoadFromFile("D:\\ПРОЕКТ\\pz.bmp");
kadr->Transparent = true;
// исходное положение пузырька
x=400; // чтобы пузырек "вылетал" из бокала
y=300;  Timer1->Interval = 10;
Timer1->Enabled=True;
 
}
 
//---------------------------------------------------------------------------
void __fastcall TForm29::FormPaint(TObject *Sender)
{
Canvas->StretchDraw(ClientRect, back);
Canvas->Draw(400,300, sprite);
}