программа по растровой графике в delphi, как сделать чтобы круги строились по циклам??

[Alexxx_screen]

procedure TForm1.FormPaint(Sender: TObject);
begin
    with Canvas do
    begin
        Canvas.Pen.Width := 2;
        Canvas.Pen.Color := clBlack;
        Rectangle(0,0,120,120);
        Ellipse(10,10,110,110);
        Ellipse(35,35,85,85);
        Ellipse(50,50,70,70);
    end;
end;
end.

вот код по которому строится 3 круга по координатам, а как переделать ее чтобы можно было выбирать количество кругов и они строились по циклу

[notHaker]

Каковы координаты кругов? Рэндом (случайные)?

procedure TForm1.FormPaint(Sender: TObject);
var
	dwRepeatCount : integer;
	dwRandomX, dwRandomY : integer;
begin
	dwRepeatCount := StrToInt(Edit1.text);
	Canvas.Pen.Width := 2;
	Canvas.Pen.Color := clBlack;
	with Canvas do
	begin
		Rectangle(0,0,120,120);
		for i := 1 to dwRepeatCount do
		begin
		`	dwRandomX := random(110);
			dwRandomY := random(110);
			Ellipse(dwRandomX , dwRandomY, dwRandomX + 110, dwRandomY + 110);
		end;
	end;
	end;
end.

Только Edit на форму кинуть.

[Stilet]

Кинь на форму Edit, а свое перепиши

procedure TForm1.FormPaint(Sender: TObject);
const Массив координат
var i:integer;
begin
    i:=StrToIntDef(Edit1.Text,0);
    with Canvas do
    begin
        Canvas.Pen.Width := 2;
        Canvas.Pen.Color := clBlack;
        Rectangle(0,0,120,120);
        while i>0 do begin
         Ellipse(Координаты);dec(i);
        end;
    end;
end;
end.

А в Эллипсы подставляй данные из массива координат, который ты определишь в константе.

[Alexxx_screen]

либо у меня черезчур кривые руки либо что то с делфи(

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

[notHaker]

Какая ошибка? Что пишет?

[Alexxx_screen]

project olf.exe raised exception class EConvertError with message'''is not a valid integer value'. process stopped. use step or run to continue

[notHaker]

project olf.exe raised exception class EConvertError with message'''is not a valid integer value'. process stopped. use step or run to continue

Первое. Вы на форму TEdit кинули? Второе. Ошибка происходит при вызове функции StrToInt. В Edit должно быть введено число, иначе ошибка ковертирования строки в число. Чтобы такого исключения не происходило, можете вместо StrToInt использовать StrToIntDef, где вторым параметром передаётся значение по умолчанию. Это значенение использвуется функцией в случае не удачной конфертации

[Alexxx_screen]

dwRepeatCount:=StrToIntDef(Edit1.te xt);
выдает ошибку в этой строчке "undeclared identifier: 'edit1'

[notHaker]

выдает ошибку в этой строчке "undeclared identifier: 'edit1'

я же сказал поставить на форму компонент Edit.

[Alexxx_screen]

edit (stdctrls)? это же? оно и стоит на форме