Получить мультфильм "Круги на воде"

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
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,r2,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;
r2:=82;
dr:=round((r2-r1)/(n-1));
c:=cv;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Timer1.Enabled:=true; //включим таймер
Timer1.Interval:=1000;
//нарисуем стартовое изображение
with Canvas do
 begin
  Pen.Width:=2;
  Brush.Style:=bsClear;
  r:=r1;
  for i:=0 to n-1 do
   begin
    Pen.Color:=c[i+1];
    Ellipse(x1-r,y1-r,x1+r,y1+r);
    r:=r+dr;
   end;
 end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var i,r:integer;
    b:TColor;
begin
//сдвинем цвета вправо на 1
b:=c[n];
for i:=n downto 2 do
c[i]:=c[i-1];
c[1]:=b;
//снова нарисуем
with Canvas do
 begin
  Brush.Style:=bsClear;
  r:=r1;
  for i:=0 to n-1 do
   begin
    Pen.Color:=c[i+1];
    Ellipse(x1-r,y1-r,x1+r,y1+r);
    r:=r+dr;
   end;
 end;
end;
end.