How to draw circle using TfrxShapeView

ccy

I try to draw a perfect circle with TfrxShapeView:

var o: TfrxShapeView;
begin
  ...
  o.Width := 5;
  o.Height := 5;
  o.Curve := 3;
  ...
end;

The circle isn't perfect if I adjust the width and height of TfrxShapeView. How to adjust curve value in order to draw a perfect circle?

gpi

var o: TfrxShapeView;
begin
...
o.Width := 5;
o.Height := 5;
o.Curve := 0;
...
end;