Olá eu aqui de novo! tudo o que eu quero o que os valores que estão no campo soma apareçam em um dbtext, então quero somar a coluna do campo soma apenas isso, pois as somas por linhas estão sendo somadas pelo evento oncalcfields. Somar a coluna soma e pronto abaixo como está o cod agora. Ao clickar no botão soma aparece isto: 0,00 e o dbgrid em branco. Procedure spedBtnSoma.click (Sender:object); Var vSoma:Double; begin if (Qry.RecordCount <> 0) then vSoma:=0; Qry.DisableControls; Qry.First; While not Qry.EOF do begin vSoma:=vSoma+QrySoma.Value; Qry.Next; Qry.EnableControls; Qry.Close; Qry.SQL.Clear; Qry.SQL.Add('select * from Receita where Soma =:Soma'); Qry.Parameters.ParamByName('Soma').Value:= vSoma; Qry.Open; edtTotal.Caption:=FormatFloat('##0.00',Qry.FieldByName('Soma').AsFloat); end; end;