[mira]

Так и было в виде костыля.
Щас разбил выражение все стало верно.

 f : double;
 fx,fy,fz : double;
begin
 f:= v1.x - v2.x:
 fx:=f*f;
.........
 Result:=sqrt(fx+fy+fz)