Error En Variable Double

[Red_Delphi]

Tengo una función que me devuelve un valor "double", y a su vez tengo declarada una variable de tipo "double".
Al final de la "procedure", la variable la igualo al resultado de lo que devuelva la función.
y siempre me da el valor "0" la variable, cuando la función devuelve un valor mayor... PORQUE PUEDE SUCEDER ??????

Si hago un showmessage de la devolución de la función, el valor se muestra bien.

espero vuestra ayuda...

Gracias por todo.