BoundingEllipse function
function
BoundingEllipse(Const P: TPointArray; Var Center, Radius: TPointFloat; Var RotationAngle: Double): Boolean;
Unit
TeeClusteringTool