Arredondamento de valores

Vou publicar uma função muito importante,
pois ela arredonda os valores com casas decimais,
ja que não existe nenhuma similar no delphi:

function Arredonda(Valor: Double; Dec: Integer): Double;
var
Valor1,
Numero1,
Numero2,
Numero3: Double;
begin
Valor1:=Exp(Ln(10) * (Dec + 1));
Numero1:=Int(Valor * Valor1);
Numero2:=(Numero1 / 10);
Numero3:=Round(Numero2);
Result:=(Numero3 / (Exp(Ln(10) * Dec)));
end;