Source position: tpa.pas line 42
function NearbyPointInArray(
const P: TPoint;
Dist: Integer;
a: TPointArray
):Boolean;