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

Question

给定一个圆心，如何画出同心圆。犹如圆型雷达一样！这个同心圆，大概包含4个圆，每个圆的半径都是 相差5.
比如 最外面的圆半径是100, 那么第二圆是95，第三个是90，第四个85.我想循环画同心圆，做个雷达效果。

Answer 1

canvas.ellipse(rect : trect);
用一个循环，每次都改变rect的坐标和大小

Answer 2

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;