Ler valor de Um SUM

 vInstrucao:=´SELECT Sum(Quantidade) As Total,Cod_Produto,tblProdutos.Cod_Categoria FROM tblEstoque,tblProdutos WHERE´;
  vInstrucao:=vInstrucao+´ tblEstoque.COD_Produto=tblProdutos.Cod_Produto AND tblEstoque.Data Like ´+QuotedStr(´¬¬-´+cmbMes.Text+FormatDateTime(´-yyyy¬´,Date()));
  if chkPorFunc.Checked=true then
  vInstrucao:=vInstrucao+´ AND tblEstoque.Cod_Func=´+IntToStr(cmbFunc.KeyValue);
  if chkPorCategoria.Checked=true then
  vInstrucao:=vInstrucao+´ AND tblProdutos.Cod_Categoria=´+IntToStr(cmbPorCategoria.KeyValue);

  if cmbTipo.text=´Entrada´ then
  vInstrucao:=vInstrucao+´ AND Cod_Op=1´
  else if cmbTipo.text=´Saída´ then
  vInstrucao:=vInstrucao+´ AND Cod_Op=2´
  else
  vInstrucao:=vInstrucao+´ AND Cod_Op=3´;

  vInstrucao:=vInstrucao+´ GROUP By Cod_Produto,Data,tblProdutos.Cod_Categoria ORDER BY 1´;
  ShowMessage(vInstrucao);
  vOperacao:=1;
  frmPrincipal.SkinApp.Empty:=true;
  frmRelat.QrTitulo.Caption:=´ACF Imperador - Relatório Mensal de ´+cmbTipo.Text;
  frmRelat.QrNome.Caption:=vNome_Usuario;
  frmRelat.QrMD.Caption:=cmbMes.Text+FormatDateTime(´-yyyy´,Date());
  dmTabelas.QrRelat.Close;
  dmTabelas.QrRelat.SQL.Text:=vInstrucao;
  dmTabelas.QrRelat.Open;
  frmRelat.QRelatorio.Preview;
  frmPrincipal.SkinApp.Empty:=false

if frmRelat<>nil then
begin
frmRelat.QrQuantidade.Caption:=QrRelat.FieldByName(´Total´).AsString;
frmRelat.QrPreco.Caption:=QrRelat.FieldByName(´Total´).AsString;
//frmRelat.QrPrecoTotal.Caption:=FloatToStr(QrRelat.FieldByName(´Preco´).AsFloat*QrRelat.FieldByName(´Quantidade´).AsInteger)
end;