концентрические окружности

[2009]

Помогите написать программу, мне нужно изобразить 10 концентрических окружностей с центром в середине экрана. Расстояние между контурами 5 пикселей.

procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
begin
...

[Levsha100]

for i:=1 to 10 do
begin
   Form1.Canvas.Ellipse(Form1.width div 2-i*5,Form1.height div 2-i*5,Form1.width div 2+i*5,Form1.height div 2+i*5)
end;

Возможно кое что нужно подправить... забыл...

[2009]

Сделал вот так:

procedure TForm1.FormPaint(Sender: TObject);
begin

with Canvas do
begin
 Canvas.Pen.Width := 1;
Canvas.Pen.Color := clBlack;
Canvas.Brush.Color := clWhite;
Rectangle(10,20,340,350);

Pen.Width := 2;
Brush.Style := bsClear;

Pen.Color := clRed;
Ellipse(160,170,190,200);

Pen.Color := clOlive;
Ellipse(150,160,200,210);

Pen.Color := clYellow;
Ellipse(140,150,210,220);

Pen.Color := clGreen;
Ellipse(130,140,220,230);

Pen.Color := clBlue;
Ellipse(120,130,230,240);

Pen.Color := clRed;
Ellipse(110,120,240,250);

Pen.Color := clOlive;
Ellipse(100,110,250,260);

Pen.Color := clYellow;
Ellipse(90,100,260,270);

Pen.Color := clGreen;
Ellipse(80,90,270,280);

а как сделать так чтобы эти круги появлялись по очереди с определенным интервалом, а когда круги заканчивались, то они все старались и после этого программка начиналась сначала? Я в принципе догадываюсь, что это нужно как-то реализовать через цикл и через объект таймер, но как конкретно это сделать не знаю

[Levsha100]

While yes do
begin
  for i:=1 to n do
  begin
    // RISUEM
    Sleep(50);
  end;
//STERAEM
Sleep(100);
end;

[2009]

Delphi на слове yes выбивает ошибку

[Levsha100]

yes это переменная типа boolean чтобы не было вечного цикла

[2009]

да круги уже по очереди появляются, а как сделать что бы когда круги заканчивались, то они все старались и после этого программка начиналась сначала?

[Levsha100]

While yes do
begin
  for i:=1 to n do
  begin
    {Canvas.Brush.Color := clWhite;
    Rectangle(10,20,340,350);}
    //Risuem
    Sleep(50);
  end;
Canvas.Brush.Color := clWhite;
Rectangle(10,20,340,350);
Sleep(100);
end;

Вроде так!