Funcion Frac(x)

[juanjo_m_m]

queria saber si hay otra manera de sacar la parte decimal de un numero real parecida a la funcion FRAC(X), tengo un problema con esta.

me devuelve lo siguiente:

en el primer calculo.....

X:= 1425.412
Y:= 25

entero:= trunc( X / Y);
fraccion:= frac( X / Y)* Y;

saca lo siguiente X:= 57 Y:= 0.412


//*/*/*/*/*/

en el segundo calculo.....

X:= 1472.145
Y:= 25

entero:= trunc( X / Y);
fraccion:= frac( X / Y)* Y;

saca lo siguiente X:= 58 Y:= 0.999

ALGUIEN SABE PORQUE O COMO SOLUCIONARLO....

saca lo siguiente X:= 57 Y:= 0.412