Bueno, mi forma chapucera de toda la vida había sido:
Código Delphi
[-]function SetDecimals(Value:Real; Decimals:Byte): Real;
begin
Result:=StrToFloat(Format('%.' + IntToStr(Decimals) + 'f', [Value]));
end;
Todos tenemos nuestra forma chapuza xD
Saludos.