Вопрос Помогите с рисованием в Delphi.

[hecz]

Нужно нарисовать N концентрических окружностей, где R1 максимальный радиус, r -минимальный. Вот моя программа:
procedure TForm1.Button1Click(Sender: TObject);
var
r,R1,N,k,z,x,y:integer;

begin
x:=pbx1.canvas.Height div 2;
y:=pbx1.canvas.width div 2;
pbx1.canvas.pen.color:=clblack;
pbx1.canvas.pen.width:=4;
N:=strtoint(edit1.text);
r:=strtoint(edit2.text);
R1:=strtoint(edit3.text);
z:=trunc((R1-r) div N);

for k:=1 to N do begin
z:=z*k;
pbx1.canvas.ellipse(x-z,y-z,x+2*r+z,y+2*r+z);

end;
end;
end.

Что тут не так?