Hola
No dices si te da problemas o que problemas te da, cero que no da la informacion?.
Haz este y veras que dato envia:
Código Delphi
[-]
procedure TFormPresupuestos.CalcularTotal;
var
import, total: real;
begin
import:=TPresProdDetalle.FieldByName('Importe').asFloat;
QSuma.Close;
QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
QSuma.Open;
total:=QSuma.FieldByName('ST').Value;
ShowMessage(import);
ShowMessage(total);
TPresupuestosSumaTotal.AsFloat:=total;
end;
Asi veremos quien es el que tiene la informacion, supongo.
Saludos