Source position: tpa.pas line 70
function RemoveDistTPointArray(
x: Integer;
y: Integer;
dist: Integer;
const ThePoints: TPointArray;
RemoveHigher: Boolean
):TPointArray;