Hola:
Lo que ocurre es que la variable
TotalPeso la declaras de forma local, dentro de ese procedimiento, y por lo tanto se crea y se destruye durante la ejecución del mismo, y no sirve para acumular cantidades que quiereas tener al volver a llamar a dicho procedimiento.
Para que funcione adecuadamente, debes declararla de forma
global, o bien en una claúsula
var fuera de cualquier procedimiento / función, o bien, si estás trabajando en un formulario / DataModule, dentro de la declaración del mismo:
Código:
Var
TotalPeso : Integer;
// llamar este procedure al empezar cualquier cálculo de acumulados
procedure TForm1.InicializaValores;
begin
TotalPeso := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TotalPeso:=TotalPeso + Datamodule2.TotalesTrakingSalidaTotalPeso.Value;;
Carga.CurrencyEdit6.Value:= TotalPeso ;
End; // Fin del procedimiento..