//Arredonda para 2 casas decimais, já tive um problema igual ao seu e assim foi
resolvido
if Roundto(Valor1, -2) = Roundto(Valor2, -2) then
showmessage('Valores iguais');Caso necessário declare no uses : Math [As partes desta mensagem que não continham texto foram removidas]
