В чём проблема? Delphi 7 canvas

[Ultron5]

нажимаю кнопку - всё зависает.

procedure TForm1.Button1Click(Sender: TObject);
begin
with canvas do
begin
while i<101 do
r:=random(80);
x:=random(400);
y:=random(400);
if (r<x)and (r<y) then
begin
i:=i+1;
ellipse(x-r,y-r,x+r,y+r);
end;
end;
end;

Пожалуйста, оформляйте Ваш код согласно правилам.

[Аватар]

А начальное i какое? И if тот не нужен. Просто

x:=random(400-r)+r+1;
y:=random(400-r)+r+1;

[Вадим Мошев]

Цикл зацикливается:

while i<101 do
r:=random(80);

[Ultron5]

Сообщение от Аватар

А начальное i какое? И if тот не нужен. Просто

x:=random(400-r)+r+1;
y:=random(400-r)+r+1;

Спасибо!
Проблема была i и отсутствии begin и end в while