Circle 円の描画

Canvas クラスの Ellipse メソッドを使います。
以下のサンプルを参考にして下さい。

■ LEllipse の使用例

procedure TForm1.Button1Click(Sender: TObject); begin PaintBox1.Canvas.Pen.Color := clRed; PaintBox1.Canvas.Brush.Color := clBlue; //楕円を描画 PaintBox1.Canvas.Ellipse( 0,0, //円の左上の座標 50,100); //円の中心の座標 end;