SimpleRoundTo não arredonda corretamente

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