Source position: tpa.pas line 46
function TPAtoATPA(
const TPA: TPointArray;
Dist: Integer
):T2DPointArray;