我想在窗体上绘制五十个不同大小的同心圆(1分)

一个循环，用Canvas，可是只能出一个圆，这是为什么

先画大圆

procedure _Circle(ACanvas : TCanvas; X, Y, R : Integer; ALineWidth : Integer = 1);
begin
ACanvas.Pen.Width := ALineWidth;
ACanvas.Ellipse(X-R, Y-R, X+R, Y+R);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 20 downto 1 do
_Circle(Form1.Canvas, 220, 220, i * 10);
end;

接受答案了.