[[egostar]]

Empezado por CarlosHernandez

ok gracias, con eso hago para redondear, y no hay una manera para sumar las 2 cantidades que es lo que necesito que haga..

 1,7
 5,3
____

es decir sumar los decimales de la suma

seria algo como sumar

1,7
0,3+
___
 2

y por supuesto el 5,3 queda 5, porque le resto el 0,3

5,3
0,3-
___
 5

como podria hacer eso?
por favor

Si te he entendido bien, trata con este código, espero que sea lo que requieres.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Decimal,X,Y: real;
begin
  X := 1.7;
  Y := 5.3;
  Decimal := X + (Round(X) - X);
  Label1.Caption := FloattoStr(Decimal);
  Decimal := Y + (Round(Y) - Y);
  Label2.Caption := FloattoStr(Decimal);
end;

Salud OS.