Prueba con esto:
Código Delphi
[-]
var
sSQL:String;
begin
ADOQAlbaran.Close;
a := StrToInt(DBEdit1.Text);
sSQL:= 'SELECT Sum(Desglose_Albaran.ImporteLineal) AS campo ' +
'FROM Desglose_Albaran' +
'Where Num_Albaran = a';
ADOQAlbaran.SQL.Text := sSQL;
ADOQAlbaran.open;
end
Asi, ami me funciona que es tal y como yo lo suelo hacer .
Saludos