Source position: tpa.pas line 69
procedure FilterPointsLine(
var Points: TPointArray;
Radial: Extended;
Radius: Integer;
MX: Integer;
MY: Integer
);