Source position: mmath.pas line 37
function ChangeDistTPA(
var TPA: TPointArray;
mx: Integer;
my: Integer;
newdist: extended
):Boolean;