Нужно чтобы заливка шарика удалялась при перемещении, а не оставляла след за ним

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
int x, y;     // положение мячика
int dx, dy;   // приращение координат
int r;        // радиус мячика
TColor cBall; // цвет мячика
TColor cBack; // цвет поля
int wp, hp;   // размер поля (формы)
 
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::PoehaliClick(TObject *Sender)
{
    r = 25;          // радиус мячика
    x = r; y = 50;  // начальное положение мячика
    dx = 7;
    dy = 4;
    cBall = (TColor)RGB(217, 217, 25); // цвет мячика
    cBack = (TColor)RGB(33, 94, 33);   // цвет поля
    wp = Width;
    hp = Height;
    // настройка таймера
    Timer->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::TimerTimer(TObject *Sender)
{
   // стереть изображение шарика
    Canvas->Pen->Color = clWhite;
    Canvas->Brush->Color=clWhite;
    Canvas->Ellipse(x,y,x+r,y+r);
    // ** вычислить новое положение шарика **
    if ( dx > 0 )
    {
        // шарик движется вправо
        if ( x + dx +r > wp ) dx = - dx;
    }
    else
        // шарик движется влево
        if ( x + dx< 0 ) dx = -dx;
 
    if ( dy > 0 )
    {
          if (  y + dy +r> Height ) dy = -dy;
    }
    else
    {
        // шарик движется вверх
        if ( y + dy < 0 ) dy = -dy;
    }
    x += dx;
    y += dy;
    // нарисовать шарик в новой точке
    Canvas->Pen->Color = clRed;
    Canvas->Ellipse(x,y,x+r,y+r);
    //Canvas->FloodFill(x,y,clRed,fsSurface);  //Заливаем
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::TrackBarChange(TObject *Sender)
{
 Timer->Enabled=false;
 Timer->Interval=TrackBar->Position;
 Timer->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
  //высота
  Constraints->MaxHeight=248;
  Constraints->MinHeight=248;
   //ширина
  Constraints->MaxWidth=525;
  Constraints->MinWidth=525;
}
//---------------------------------------------------------------------------

   // стереть изображение шарика
    Canvas->Pen->Color = Color;
    Canvas->Brush->Color= Color;