Source position: tpa.pas line 68
procedure FilterPointsDist(
var Points: TPointArray;
const MinDist: Extended;
const MaxDist: Extended;
Mx: Integer;
My: Integer
);