Redondeo de decimales

[Cheswar]

Hola, necesito que me ayuden para redondear decimales en delphi 7, soy principiante y estuve tratando de hacerlo con roundto pero no me funciono, incluso no me corrio el programa, si alguien sabe alguna forma facil, le voy a agradecer. En el redondeo necesito por ejemplo si me sale 5.1241562135, redondearlo a 5.124.:D

[xEsk]

Hola, en este hilo (http://www.clubdelphi.com/foros/showthread.php?t=26059) ya trataron el tema.

Saludos.

[paldave]

Otra forma menos "formal" de hacerlo sería así:
function SetPrecision(Value:Real;Digits:Byte):Real;
var s:String;
begin
s:='.'+StringOfChar('0',Digits);
s:=FormatFloat(s,Value);
Result:=StrToFloat(s);
end;

[xEsk]

Bueno, mi forma chapucera de toda la vida había sido:
function SetDecimals(Value:Real; Decimals:Byte): Real;
begin
Result:=StrToFloat(Format('%.' + IntToStr(Decimals) + 'f', [Value]));
end;

Todos tenemos nuestra forma chapuza xD

Saludos.