Вычисление пути и времени пути

[supernewbie]

function GetTimeFromPath(x1,y1,z1,x2,y2,z2:integer) : integer;
begin
Path:=Round(Sqrt(((x2-x1)*(x2-x1))+((y2-y1)*(y2-y1)))+abs(z2-z1));
Time1:=Path div Speed;
result:=Time1;
end;

Вот вроде бы нормально считает, но все время идет погрешность, я думаю что скорее всего это из-за Round'а, есть вариант решения проблемы?