[alexteam]

скорей всего это из за незнания теоремы пифагора + незнание того что окромя интежера есть еще куча типов (в т.ч. с плавающей запятой) + не использования movemul (скорей всего)

function GetTimeFromPath(x1,y1,z1,x2,y2,z2:integer) : double;
begin
result:= (sqrt(sqr(x2-x1)+sqr(y2-y1)+sqr(z2-z1))) / CurrentSpeed;
end;

где CurrentSpeed считается так

function CurrentSpeed: Double;
begin
if isRunning then
Result := MoveMul*RunSpd
else
Result := MoveMul*WalkSpd;
end;

isRunning / MoveMul / RunSpd / WalkSpd - смотреть в userinfo

Добавлено через 5 минут
isRunning так же в пакете ChangeMoveType может изменяццо