Движение изображения (чтобы птичка двигалась справа налево ,а потом назад)

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x=-300, y=70;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::L1(int x, int y)
{
        int dx=5, dy=5;
        //лодка
        Canvas->Pen->Color=clBlack;
        Canvas->Brush->Color=clBlack;
        Canvas->Ellipse(x,y,x+290,y+65);
        TPoint p[4];
        p[0].x=x+14*dx; p[0].y=y-4*dy;
        p[1].x=x+32*dx; p[1].y=y-4*dy;
        p[2].x=x+32*dx; p[2].y=y+4*dy;
        p[3].x=x+14*dx; p[3].y=y+4*dy;
        Canvas->Brush->Color=clBlack;
        Canvas->Polygon(p,3);
 
        //трюм (квадраты)
        Canvas->Brush->Color=clRed;
        Canvas->Rectangle(x+90,y-15,x+100,y-5);
        Canvas->Rectangle(x+110,y-15,x+120,y-5);
        Canvas->Rectangle(x+130,y-15,x+140,y-5);
        //Полоска
        Canvas->Rectangle(x,y+32,x+290,y+36);
        //трюм (круг)
        Canvas->Brush->Color=clWhite;
        Canvas->Ellipse(x+40,y+20,x+50,y+30);
        Canvas->Ellipse(x+60,y+20,x+70,y+30);
        Canvas->Ellipse(x+80,y+20,x+90,y+30);
        Canvas->Ellipse(x+150,y+20,x+160,y+30);
        Canvas->Ellipse(x+170,y+20,x+180,y+30);
        Canvas->Ellipse(x+190,y+20,x+200,y+30);
        Canvas->Ellipse(x+210,y+20,x+220,y+30);
        Canvas->Ellipse(x+230,y+20,x+240,y+30);
        //пропелер
        TPoint p2[6];
        p2[0].x=x-1*dx;  p2[0].y=y+35;
        p2[1].x=x+2;     p2[1].y=y+2*dy;
        p2[2].x=x-3*dx;  p2[2].y=y+2*dy;
        p2[3].x=x-1*dx;  p2[3].y=y+35;
        p2[4].x=x+2;     p2[4].y=y+12*dy;
        p2[5].x=x-3*dx;  p2[5].y=y+12*dy;
        Canvas->Brush->Color=clInfoBk;
        Canvas->Polygon(p2,5);
        Canvas->Rectangle(x-6,y+33,x+1,y+37);
        //телескоп
        TPoint p3[6];
        p3[0].x=x+20*dx; p3[0].y=y-4*dy;
        p3[1].x=x+20*dx; p3[1].y=y-10*dy;
        p3[2].x=x+22*dx; p3[2].y=y-10*dy;
        p3[3].x=x+22*dx; p3[3].y=y-9*dy;
        p3[4].x=x+21*dx; p3[4].y=y-9*dy;
        p3[5].x=x+21*dx; p3[5].y=y-4*dy;
        Canvas->Brush->Color=clBlack;
        Canvas->Polygon(p3,5);
 
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        Canvas->Brush->Color=Form1->Color;
        Canvas->FillRect(Rect(x-70,y-70,x+500,y+500));
        x+=5;
 
        if (x>ClientWidth)
        {
                x=-300;
                y=random(Form1->ClientHeight);
        }
L1(x,y);
}
//---------------------------------------------------------------------------