Error en OnCalcFields con valor retornado de un SELECT SUM()

[Cabanyaler]

Es así, como lo debo hacer:

Código Delphi [-]
procedure TDMInstalgas_2.ADOQ_Control_ComercialCalcFields(
  DataSet: TDataSet);
begin
     // Acumule al camp calculat el valor del sumatori de totes les obres deixe contracte
     DMInstalGas_2.ADOSP_AcumulaObrasPeriodoFacturacionComercial.Close;
     DMInstalGas_2.ADOSP_AcumulaObrasPeriodoFacturacionComercial.Parameters[1].Value := DMInstalGas_2.ADOQ_Control_ComercialCodCon_Obr.Value;
     DMInstalGas_2.ADOSP_AcumulaObrasPeriodoFacturacionComercial.Open;
     DMInstalGas_2.ADOSP_AcumulaObrasPeriodoFacturacionComercial.ExecProc;
     // Operació de la resta
     DMInstalGas_2.ADOQ_Control_ComercialAcuValExt_Cal.Value :=  DMInstalGas_2.ADOSP_AcumulaObrasPeriodoFacturacionComercial.Fields[0].Value - DMInstalGas_2.ADOQ_Control_ComercialTotImp_Obr.Value;
end;

Gracias a tod@s.