SimpleRoundTo não arredonda corretamente

[amsoft 0]

Olá,

 

Estou usando a função SimpleRoundTo pois preciso do seguinte resultado.

Ex:

SimpleRoundTo(590.415,-2)  = 590,42;

SimpleRoundTo(590.414,-2)  = 590,41;

 

Porem quando passo a variável vTotal para a função SimpleRoundTo ele me retorna 590,41.

vTotal: Real;

vTotal := 590.415;

SimpleRoundTo(vTotal,-2);

Resultado: 590,41

 

Agora se passar o valor e não a variável SimpleRoundTo(590.415,-2)  ele me retorna corretamente 590,42.

SimpleRoundTo(590.415,-2)  = 590,42;

 

Alguém consegue me dar uma ajuda.

 

Obrigado