Source position: tpa.pas line 44
function ReArrangeandShortenArray(
const a: TPointArray;
Dist: Integer
):TPointArray;