Как сделать каждый круг разного цвета?

procedure Circle(x,y,R:integer);
begin
 Form1.PaintBox1.Canvas.Ellipse(x-R,y-R,x+R,y+R);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  n,Centr,L, i,R,x0,y0,x1,y1,x,y:Integer;
   rr:Real;
begin
   n:=5; //количество окружностей
   x:=paintbox1.Width div 2;  // центр окружности
   y:=PaintBox1.Height div 2; // центр окружности
   if x>y then R:=y else R:=x;
 
   Circle(x,y,R);
 
   rr := R / ( 1 + 1/sin(Pi/n) );
 
   for i:=0 to n-1 do
   begin
    x0 := Round((x) + (r-rr)*cos(((i*360/n))*pi/180));
    y0 := Round((y) + (r-rr)*sin(((i*360/n))*pi/180));
     Circle(x0,y0,Round(rr));
   end;
 
   x1:=x;
   y1:=y;
   Centr:=Round(r-rr);
 
      for l:=0 to n-1 do
   begin
    x := Round((x1) + (Centr)*cos(((l*360/n))*pi/180));
    y := Round((y1) + (centr)*sin(((l*360/n))*pi/180));
    if l=0 then R:=Round(rr);
    rr := R / ( 1 + 1/sin(Pi/n) );
 
   for i:=0 to n-1 do
   begin
    x0 := Round((x) + (r-rr)*cos(((i*360/n))*pi/180));
    y0 := Round((y) + (r-rr)*sin(((i*360/n))*pi/180));
     Circle(x0,y0,Round(rr));
   end;
   end;

const n=5;
var
  Form1: TForm1;
  xc,yc,r,x1,y1,r1,x2,y2,r2,r3:integer;
  u,du:real;
  f:boolean;
implementation
 
{$R *.dfm}
procedure Krug(x,y,r,c:integer);
begin
with Form1.PaintBox1.Canvas do
 begin
  pen.Color:=c;
  brush.Color:=c;
  ellipse(x-r,y-r,x+r,y+r);
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//центр желтой окружности
xc:=paintbox1.Width div 2;
yc:=PaintBox1.Height div 2;
if xc>yc then r:=yc else r:=xc;//радиус желтой
r1:=round(r/(1+1/sin(pi/n)))-1;// радиус центров зеленых
r2:=round(r1/(1+1/sin(pi/n)))-1;// радиус центров синих
u:=pi/2; //верхний круг по середине
du:=0.1;
Timer1.Enabled:=false; //выключим таймер
Timer1.Interval:=100; //интервал 0.1 сек
doublebuffered:=true; //двойная буферизация от мерцания
f:=false;//выключено вращение
Button1.Caption:='ПУСК'; //кэпшен кнопки
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
var i,j:byte;
begin
Krug(xc,yc,r,clyellow);//рисуем желтый круг
for i:=0 to n-1 do //рисуем зеленые
 begin
  x1:=round(xc+(r-r1)*cos(u+i*2*pi/n));
  y1:=round(yc+(r-r1)*sin(u+i*2*pi/n));
  krug(x1,y1,r1,clGreen);
  for j:=0 to n-1 do//рисуем синие
   begin
    x2:=round(x1+(r1-r2)*cos(u+j*2*pi/n));
    y2:=round(y1-(r1-r2)*sin(u+j*2*pi/n));
    Krug(x2,y2,round(r2),clBlue);
   end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
if not f then //если выключено вращение
 begin
  Button1.Caption:='СТОП';
  du:=0.1;//увеличение угла на 0.1
  f:=true //включим
 end
else //если включено
begin
 Button1.Caption:='ПУСК';
  du:=0; //не уаеличиваем угол
  f:=false //выключим
 end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
u:=u+du; //увеличиваем угол
PaintBox1.Repaint //перерисовываем
end;

if (ColorBox1.Selected=ColorBox2.Selected)
or (ColorBox1.Selected=ColorBox3.Selected)
or (ColorBox2.Selected=ColorBox3.Selected)
then
 begin
  ShowMessage('Выбраны одинаковые цвета');
  exit
 end;