Source position: tpa.pas line 65
function SplitTPA(
const arr: TPointArray;
Dist: Integer
):T2DPointArray;