Dudas con decimales

[gerardus]

Ten en cuenta que quizás en tu páis sector/de actividad el redondeo correcto o esperado no sea
el estandar de Delphi.
En mi caso uso:

function RoundD(x: Extended; d: Integer): Extended;
var
  n: Extended;
begin
  n := IntPower(10, d);
  x := x * n;
  Result := (Int(x) + Int(Frac(x) * 2)) / n;
end;

RoundD(1.234, -2)-> 1.23
RoundD(1.235, -2)-> 1.24
RoundD(1.245, -2)-> 1.25


Cordialmente,

Gerard.