RE:Como redondear dentro de..
Hay bastantes maneras de hacerlo, a gusto del consumidor. Si sabes los campos que trae el componente Query y estos son persistentes, puedes emplear la propiedad (en el editor de campos) EditMask (por ejemplo ###,###,###.## para que solo muestre dos decimales). De todas formas esto te da formato pero no te redondea, para ello puedes crear una funcion o emplear una que tiene Delphi 6 (ahora no recuerdo el nombre pero si te interesa te lo puedo buscar).
Mira esta funcion.Añade la unidad Maths al uses y recibe dos parametros el numero a redondear (x) y el la posicion del decimal(D) al que quieres redondear.
function RoundD(x:Extended;D:Integer):Extended;
var
n:Extended;
begin
n:=Power(10,d);
x:=x*n;
Result:=(int(x)+Int(Frac(x)*2))/n;
end;