[maxzama]

Me da erróneo el resultado.

Aquí te muestro el cogido: (C= 1124,52 )

Código Delphi [-]
var

I:Real;
I1:string;
I2:Currency;
Numero:Real;
Decimal:Integer;
Redondeo:Real;

begin
         I1:='0,01';
         I:=STRTOFloat(I1);
         I:=I*C;                 // I= 11,25
         I2:=I;
         Redondeo:=0.5;
         if Numero<0.0 then
         Redondeo:=-Redondeo;
         case Decimal of
            0:I2:=Int((Numero*10+Redondeo*10)/10);
            1:I2:=Int((Numero*10+Redondeo)/10);
            2:I2:=Int((Numero*100+Redondeo)/100);
            3:I2:=Int((Numero*1000+Redondeo)/1000);
            4:I2:=Int((Numero*10000+Redondeo)/10000);
         end;
         I:=I2;
         Edit59.Text:=FloatToStr(I);             // El resultado Da 0
end;

________________________________________

No se que es lo que me falta o tengo malo.

Espero tu respuesta por favor y gracias...