[compuin]

Ya vi el error

Estaba usando esto

Código Delphi [-]
Dist := Sqr(x * x + y * y + z * z);

En lugar de esto

Código Delphi [-]
Dist := Sqrt(x * x + y * y + z * z);

Por eso el calculo no era correcto

Muchas gracias por la ayuda!!