Создать 10 кругов на вертикальной линии Делфи.

[Bracho1994]

Зачастил последнее время я на этом форуме
Построить на экране изображения 10 окружностей, центры которых расположены на одной вертикальной линии.
Почти сделал, но он почему-то жалуется на for.. В чем проблема?

procedure TForm1.Button1Click(Sender: TObject);
// 10 кругов
var i: integer;
x1, y1, x2, y2 : integer;
begin
x1:=100; y1:=50; X2:=200; y2:=150;
with Canvas do
begin
pen.Color:=clBlue;
Brush.Style:=bsClear
for i := 1 to 10 do
begin
Ellipse (x1,y1,x2,y2);
y1:= y1+100;
y2:= y2+100;
end;
end;
end;

end.

[Mad_Cat]

Brush.Style:=bsClear;

[Bracho1994]

Ну как всегда тупанул=(
А как сделать с теми же самыми кругами, только чтобы 10 кругов, центры которых расположены на линии совпадающей с диагональю экрана?

procedure TForm1.Button1Click(Sender: TObject);
// 10 кругов
var i: integer;
x1, y1, x2, y2 : integer;
begin
x1:=100; y1:=50; X2:=200; y2:=150;
with Canvas do
begin
pen.Color:=clred;
Brush.Style:=bsClear;
for i := 1 to 10 do
begin
Ellipse (x1,y1,x2,y2);
x1:= x1+100;
x2:= x2+100;
y1:= y1+100;
y2:= y2+100;
end;
end;
end;

end.

они просто по диагонали выстраиваются. Будет ли это считаться правльной программой? Это же не диагональ ЭКРАНА

[Mad_Cat]

сделай форму во весь экран и будет

Сообщение от Bracho1994

диагональ ЭКРАНА

==диагональ формы

[Bracho1994]

А как сделать 10 концентрических окружностей с центром в точке Xc, Yc?
Вроде уже как только не пробовал, но они у меня то по всему экрану, то разных размеров..

[BDA]

for i := 1 to 10 do
Ellipse (xc-10*i,yc-10*i,xc+10*i,yc+10*i);

[Bracho1994]

Спасибо! Все работает!=) Эх.. Чтобы я без вас делал?