Source position: typshrdh.inc line 85
class function TPoint.PointInCircle(
const apt: TPoint;
const acenter: TPoint;
const aradius: Integer
):Boolean;