Prueba algo como esto:
Código Delphi
[-]
function RoundTo(F: single; d: integer): double;
var
p: double;
begin
p:= Power(10, d);
Result:= trunc(F*p+0.5)/p;
end;
Donde F es el valor que quieres redondear y d el decimal donde quieres redondear.
Saludos.