Hola migueweb.
Esta función que utiliza Round,
Código Delphi
[-]
function Redondea(Num: Double; NDec:Byte): Double;
begin
Result:= Round(Num * Exp(ln(10)*NDec)) / Exp(ln(10)*NDec);
end;
te devuelve el número real con la cantidad de cifras decimales que le indiques en el parámetro NDec.
Saludos.