Hola, primero que todo deberias especificar que base de datos utilizas, Access, Mysql que componentes usas ADO, Zeos, BDE, etc., en fin, creo que el codigo debe ser asi:
Si es en Access.
Código Delphi
[-]procedure TFormPresupuestos.CalcularTotal;
var
total: real;
begin
QSuma.Close;
QSuma.Parameters.ParamByName('Pres').Value:=TPresupuestosIdpres.AsInteger;
QSuma.Open;
total:=QSuma.FileByName('ST').Value;
TPresupuestosSumaTotal.AsFloat:=total;
end;
Si es en Mysql con ZEOS u otra base de datos o componentes :
Código Delphi
[-]procedure TFormPresupuestos.CalcularTotal;
var
total: real;
begin
QSuma.Close;
QSuma.ParamByName('Pres').Value:=TPresupuestosIdpres.AsInteger;
QSuma.Open;
total:=QSuma.FileByName('ST').Value;
TPresupuestosSumaTotal.AsFloat:=total;
end;
Saludos.