Source position: mmath.pas line 36
function ChangeDistPT(
const PT: TPoint;
mx: Integer;
my: Integer;
newdist: extended
):TPoint;