Calcular Total

[Cañones]

Hola a todos tengo la siguiente tabla y quiero calcular el total.
Estoy usando Firebird 1.5
Presupuesto_Detalle (nro_presupuesto, cod_producto, cant, precio)
Para mostrar los detalles en el programa uso lo siguiente
select cod_producto, cant*precio as sub_total
from presupuesto_detalle
where nro_presupuesto = xxx

El tema es como puedo hacer para sumar la columna sub_total asi obtengo el total o alguna otra forma de calcularlo.

Gracias.
Saludos a todos.

[karlaoax]

En un Query:
Select Sum (columna) as columna2 from Tabla

En un Boton:

procedure TForm1.Button1Click(Sender: TObject);
begin
query1.close;
query1.SQL.clear;
query1.Open;
componente.Text:=query1.SQL.Text;
end;

Si marca error me avisas.

Karla :P

[Cañones]

Gracias por tu ayuda, me sirve para lo que necesito.
Saludos Karla.

[ContraVeneno]

Código SQL [-]
 select Sum(cant*precio) as Total
from presupuesto_detalle
where nro_presupuesto = xxx