Bueno lo mas conveniente seria usar la funcion
RoundTo (de la unidad
Math) que utiliza el redondeo bancario(Banker’s rounding).

.
Ejemplo de uso:
Cita:
RoundTo(1234567, 3) ->1234000
RoundTo(1.234, -2)-> 1.23
RoundTo(1.235, -2)-> 1.24
RoundTo(1.245, -2)-> 1.24
|
Ahora ten cuidado con el segundo argumento que es el que indica cuantos decimales apareceran,pues no es lo mismo ponerlo como positivo que negativo.Si tienes dudas chequea la ayuda de Delphi.

Saludos...

__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7