Вывести эллипс, а затем закрасить его цветом формы

 var 
    x,y : integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin 
    x:= 200;y:= 200;
  with Canvas do begin
    Pen.Color:=clRed;
    Pen.Width:= 3; 
    Ellipse(x-2,y-2,x+2,y+2);
  end; 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
      canvas.brush.color:= form1.color;
     x:= 220;y:= 220;
    with Canvas do begin
      Pen.Color:=clRed;
      Pen.Width:= 3; 
      Ellipse(x-2,y-2,x+2,y+2);
    end; 
  end;

var
  Form1: TForm1;
 x,y,x1,y1:integer;
 a: real;//ugol povorota point v radianah
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  x:=clientwidth div 2;         // центр координат вокруг которых
  y:=clientheight div 2;        //вращается эллипс (всегда центр формы)
   canvas.pen.color:=clred;  // окаемка эллипса будет красной
  Timer1.Enabled:= false;
  Timer1.Interval:= 50;
  a:= 0;                            //начальный угол поворота эллипса
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //repaint;//перерисовывает все окно формы стирает эллипс вместо FloodFill
   with canvas do begin
    brush.color:= Form1.color;        //цвет которым будем стирать эллипс(цвет формы)
{FloodFill cтирает эллипс начиная с его центра (координаты x1,y1)}
  FloodFill(x1,y1,form1.color,fsBorder);
  x1:= x+round(r*sin(a));              //новые координаты
  y1:= y+round(r*cos(a));            //для вывода эллипса
   brush.color:=clred;                   //цвет для закраски эллипса
  ellipse(x1-4,y1-4,x1+4,y1+4);     //выводим эллипс на новом месте
   end;
 a:= a+0.1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:= not Timer1.Enabled;  //запускаем/останавливаем таймер
end;