Source position: tpa.pas line 41
function NearbyPointInArrayEx(
const P: TPoint;
w: Integer;
h: Integer;
a: TPointArray
):Boolean;