PROCEDURE TForm1.Chart1Click(Sender: TObject);BEGIN Chart1.Canvas.EllipseC (X, Y, RadiusX, RadiusY);END;