给定一个圆心，怎么画出同心圆。犹如圆型雷达一样

给定一个圆心，如何画出同心圆。犹如圆型雷达一样！
给定一个圆心，如何画出同心圆。犹如圆型雷达一样！

这个同心圆，大概包含4个圆，每个圆的半径都是 相差5.
比如 最外面的圆半径是100, 那么第二圆是95，第三个是90，第四个85.

我想循环画同心圆，做个雷达效果。

[解决办法]
canvas.arc
[解决办法]
up
[解决办法]
canvas.ellipse(rect : trect);
用一个循环，每次都改变rect的坐标和大小
[解决办法]

Delphi(Pascal) code

var  i:Integer;  rect:TRect;begin  Self.Canvas.Pen.Style := psSolid;  Self.Canvas.Pen.Color := clRed;  rect.Left := 100;  rect.Right := 500;  rect.Bottom := 500;  rect.Top := 100;  for i := 0 to 3 do  begin    rect.Left := rect.Left + i*20;    rect.Right := rect.Right - i*20;    rect.Top := rect.Top + i*20;    rect.Bottom := rect.Bottom - i*20;    Self.Canvas.Ellipse(rect);  end;end;