[Spynosa]

Código Delphi [-]
function Redondear(Numero:real; Decimales:integer):real;
var signo : integer;
begin
  if Numero>=0 then
    signo:= 1
  else
    signo:= -1;
  if Decimales <>0 then
    Result:= signo * Trunc((Abs(Numero)*Power(10,Decimales)) + 0.5) / Power(10,Decimales)
  else
    Result:= signo * Trunc((Abs(Numero)+ 0.5));
end;

Igualmente tienes que usar la unit Math