Source position: graphmath.pp line 96
function RadialPoint(
EccentricAngle: Extended;
Rect: TRect
):TPoint;