Circle(Pictureなど)

Circleメソッドは円を描画するメソッドです。Delphiでは TCanvas型のプロパティを持っているコンポーネントなら TCanvasの「Ellipse」メソッドを使用して描画する事ができます。VBでは中央座標と半径を指定しましたが, Delphiでは左上の座標と右下の座標をしていします。Ellipseは楕円の描画も可能です。
■ TPaintBoxに円を描画して塗りつぶす例
  procedure TForm1.Button2Click(Sender: TObject);
  begin
    With  PaintBox1 do  begin
      {線の色}
      Canvas.Pen.Color    :=  clRed;
      {塗りつぶす色}
      Canvas.Brush.Color  :=  clBlue;
      {円を描画}
      Canvas.Ellipse(0, 0, Width, Height);
      {中央から塗りつぶし}
      Canvas.FloodFill(Width div 2, Height div 2, Canvas.Pen.Color, fsSurface);
    end;
  end;                                                                          