[[Caral]]

Hola
A ver por partes que hacemos.
Yo diria que no necesitas dos consultas para la suma, cambiaria por esto:

Código Delphi [-]
              ZQueryBD.Close;
              ZQueryBD.SQL.Text:= 'Select Articulo, Cantidad, Precio, Sum(Precio) as Suma  From Factura' +
                                  ' Group By Articulo, Cantidad, Precio' ;
              ZQueryBD.Open;
            //  ZQuery1.Close;
            //  ShowMessage('La suma de los precios');
              //Aqui se tranca
            //  ZQuery1.SQL.Text:=  'Select Sum(Precio) as Suma From Factura';
              ShowMessage('agregado');
              //Justo aqui abajo, no abre el query
            //  ZQuery1.Open;
              ShowMessage('sumados');
              Edit3.Text:= ZQueryBD.FieldByName('Suma').AsString+' BsF';
              Monto:= ZQueryBD.FieldByName('Suma').AsString;
            end

Empecemos por aqui, me dices si te sirve o si te gusta.
Saludos