Как передвинуть Rectangle из одной точки в другую на Canvas с использованием timer

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
float x,y,t;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Repaint();
  Image1->Canvas->Pen->Color=clWhite;
  Image1->Canvas->Rectangle(x,y,x+50,y+50);
  Image1->Canvas->Pen->Color=clRed;
 x++;
  Image1->Canvas->Rectangle(x,y,x+50,y+50);
  Image1->Canvas->Pen->Color=clWhite;//clBtnFace;
    }
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Form1->Timer1->Enabled=false;         
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1->Timer1->Enabled=true;
}
//---------------------------------------------------------------------------