Создание мультика в Делфи

const n=7;
type mas=array[1..n] of TColor;//тип массив цветов
//назначим 7 цветов, можно и по другому
const cv:mas=(clRed,clMaroon,clGreen,clAqua,clBlue,clFuchsia,clPurple);
var
  Form1: TForm1;
  r1,dr,x1,y1,r:integer;
  c:mas;
implementation
 
{$R *.dfm}
//заготовка формы   и исходные данные
procedure TForm1.FormCreate(Sender: TObject);
begin
width:=400;
height:=480;
color:=clWhite;
Button1.Top:=height-70;
Timer1.Enabled:=false;
//координаты центра
x1:=ClientWidth div 2;
y1:=ClientHeight div 2;
r1:=40;//начальный радиус
dr:=7; //шаг по уловию
c:=cv; //переменный масив цветов
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true; //включим таймер
Timer1.Interval:=500;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var i:byte;
begin
with Canvas do
 begin
  Pen.Width:=2;
  Brush.Style:=bsClear;
  r:=r1;
  for i:=1 to n do
   begin
    Pen.Color:=c[i];
    Ellipse(x1-r,y1-r,x1+r,y1+r);
    r:=r+dr;
   end;
 end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
    b:TColor;
begin
//сдвинем цвета вправо на 1
b:=c[n];
for i:=n downto 2 do
c[i]:=c[i-1];
c[1]:=b;
Form1.Repaint;
end;