Hola.
Agrego otra posibilidad a la expuesta por el amigo Caral.
Código Delphi
[-]
function RedondeaPorExceso(Numero: Double; Digitos: Integer): Double;
var
m: Double;
begin
m:= Exp(Ln(10) * Digitos);
Result:= Round(Numero * m + 1/(m + 5)) / m;
end;
Saludos.