Hola
Acuerdate de usar las etiquetas.
Código SQL
[-]
Select sum(Importe) as ST from presprod where Codpres= res
Código Delphi
[-]
procedure TFormPresupuestos.CalcularTotal;
var
total: real;
begin
QSuma.Close;
QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
QSuma.Open;
total:=QSuma.FileByName('ST').Value;
TPresupuestosSumaTotal.AsFloat:=total;
end;
Saludos