Source position: tpa.pas line 43
function ReArrangeandShortenArrayEx(
const a: TPointArray;
w: Integer;
h: Integer
):TPointArray;