Движение по синусоиде

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x,y;
int N=0;
Graphics::TBitmap *back=new Graphics::TBitmap();
Graphics::TBitmap *myxa1=new Graphics::TBitmap();
Graphics::TBitmap *myxa2=new Graphics::TBitmap();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TRect badRect;
badRect=Rect(x,y,x+myxa1->Width,y+myxa1->Height);
Canvas->CopyRect(badRect, back->Canvas,badRect);
x+=2;
if (x>ClientWidth)
{
x=-20;
y=random(ClientHeight-100);
Timer1->Interval=random(20)+10;
}
if (N>10) Canvas->Draw(x,y,myxa1);
else Canvas->Draw(x,y,myxa2);
N++;
if (N>20) N=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
back->LoadFromFile("3.bmp");
ClientWidth=back->Width;
ClientHeight=back->Height;
myxa1->LoadFromFile("1.bmp");
myxa2->LoadFromFile("2.bmp");
myxa1->Transparent=true;
myxa2->Transparent=true;
x=-20;
y=20;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Canvas->Draw(0,0,back);
}

y = Sin(x)*10+250;

private:    // User declarations
    Graphics::TBitmap *back;
    Graphics::TBitmap *myxa1;
    Graphics::TBitmap *myxa2;
    int x,y,n,d;
public:     // User declarations

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    //Мы уже здесь создаем экземпляр класс и все парамметры
    this->back = new Graphics::TBitmap();
    this->back->LoadFromFile("d:\\3.bmp");
    this->myxa1 = new Graphics::TBitmap();
    this->myxa1->LoadFromFile("d:\\1.bmp");
    this->myxa1->Transparent = True;
    this->myxa2 = new Graphics::TBitmap();
    this->myxa2->LoadFromFile("d:\\2.bmp");
    this->myxa2->Transparent = True;
 
    //y равен половине экрана примерно
    y = (int)(this->Height / 2);
    //x равер ровно столько что бы скрыть ее с экрана
    x = -(this->myxa1->Width);
    //счетчик
    n = 0;
    //скорость
    d = 2;
}

void __fastcall TForm1::FormPaint(TObject *Sender)
{
for (int i=0;i<this->Width;i+=this->back->Width)
    for (int j=0;j<this->Height;j+=this->back->Height)
        this->Canvas->Draw(i,j,this->back);
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//устанавливаем x
x+=d;
//Расчитываем y
y = (int)(Sin(x/10)*(this->Height/10)+(this->Height/2));
//ставим интервал
this->Timer1->Interval = Random(20)+20;
//проверяем условие, если долетела до конца, значит летим обратно, и снова вперед
if ((x+this->myxa1->Width)>this->ClientWidth) d = -2;
else if (x<0) d = 2;
//Вызвываем перерисовку формы.
this->Repaint();
//Расуем муху, как у тебя было раньше
if (this->n>10) this->Canvas->Draw(this->x,this->y,this->myxa1);
else this->Canvas->Draw(this->x,this->y,this->myxa2);
this->n++;
if (this->n>20) this->n=0;
}