Calcular un valor antes de guardar en una tabla

[[FGarcia]]

Bueno, ahora si!

Ya probe y revise tablas y parece que ya no hay problema. Esto quedo asi:

Código Delphi [-]
procedure TDMSerie.ProcesaCadena(Str: string);
var
  Acc: Double;
begin
  if not TblCaptura.FieldByName('Suma').IsNull then
    Acc := TblCaptura.FieldByName('Suma').Value
  else
    Acc := 0;
 
  with TblCaptura do
    begin
      Append;
        FieldByName('hfCaptura').Value := Now;
        FieldbyName('ID').Value := MidStr(Str,1,1);
        FieldByName('Valor').Value := MidStr(Str,3,7);
        FieldByName('Suma').Value := (StrToFloat(MidStr(Str,3,7)) + Acc);
      Post;
    end;
 
  DataCnx.ConsultaTotales;
end;

Se siguen aceptando sugerencias!!

Gracias!