Hay varios hilos que hablan al respecto entre ellos esta este por ejemplo:
http://clubdelphi.com/foros/showthre...ight=decimales
Y muchos mas, Aqui una lista de unos tantos:
http://clubdelphi.com/foros/search.php?searchid=400399
En resumen, hay que declarar los campos como Numeric(x,y) y usar la funcion RoundTo.
Espero te sirva.