Mi programa de facturación paso a paso

[Delphitest]

No hay forma humana de seguir con esto, cada hora que pasa estoy mas perdido, me llegan errores por todos los lados y ya no se por donde tirar.

Pese al esfuerzo de ayer que hizo Ena0 que dedico parte de la tarde en echarme una mano no hay forma de conseguir calcular el total de los importes.

Os cuento exactamente lo que me pasa para ver si alguien fuese tan amable de ayudarme.

Sigo atascado en el FAlbaran, el tema es que necesito meter la suma del campo ImporteLineal (de DesgloseAlbaran) en el campo Base (tabla Albaranes).

Con este código consigo que se sume y lo lleve a la pantalla, que no es poco, pero me da un error en cuanto uso "SUM" despues de select. (Para no liarme de momento todo esto está en el evento click del Button2, ya lo cambiare cuando funcione).

Código Delphi [-]
procedure TFAlbaranes.Button2Click(Sender: TObject);
var
b : double;
begin
//Cierro la consulta
  ADOQAlbaran.Close;
// Selecciono la suma del campo ImporteLineal y lo vuelco a BaseImp
  ADOQAlbaran.Sql.add ('Select sum([Desglose_Albaran].ImporteLineal) AS BaseImp');
// en la tabla Desglose_albaran
  ADOQAlbaran.Sql.add ('From Desglose_Albaran');
// Solo los que coincidan con el nº albaran 8
  ADOQAlbaran.Sql.add ('Where Num_Albaran = 8');
// Abro la consulta
  ADOQAlbaran.Open;
// Asigno el valor de la suma a la variable B
  B:= ADOQAlbaran.FieldByName ('BaseImp').asFloat;
// Muestro un mensaje con el total
  ShowMessage('El importe total es ' + FloatToStr(B));
end;

He hecho pruebas quitandolo y deja de darlo, pero claro, no suma nada. El error que da es:

http://cjoint.com/data/kFrMbPX0o5.htm


Aqui os subo todo actualizado pero con ese error

Gracias a los que podais echarme una mano, no pienso tirar la toalla pero la verdad es que cuando se queda uno así sin saber por donde continuar es un poco duro.