Cita:
|
SumaTotal := SumaTotal + TotalLinea; (<== esta ultima del tipo extended)
|
si lo que quieres es que te cuente los decimales en esta suma, lo mejor sera que sumatotal sea extended y una vez hecha toda la suma, entonces pasarla a entero (aunque claro esta, se perderan los decimales)