Fórum Como apresentar resultado de soma em QRLabel? - De novo! #157372

Eu de novo... continua não dando certo. Quer dizer, o programa está rodando normal, só que o resultado não aparece no pé do relatório. Dá pra ajudar mais um pouquinho?

procedure TFR_PgNao.QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
pTotalClube := 0;
pTotalSeguro := 0;
DM_Digita.TabDesconto.First;
While not DM_Digita.TabDesconto.eof do
begin
if DM_Digita.TabDesconto.FieldByName(´PgCl´).AsString = ´N´ then begin
pTotalClube := pTotalClube + DM_Digita.TabDesconto.FieldByName(´ClTotal´).AsFloat;
end;
if DM_Digita.TabDesconto.FieldByName(´PgSg´).AsString = ´N´ then begin
pTotalSeguro := pTotalSeguro + DM_Digita.TabDesconto.FieldByName(´SgTotal´).AsFloat;
end;
DM_Digita.TabDesconto.Next;
end;
QRLblTlClube.Caption := FormatCurr(´#,0.00´,pTotalClube);
QRLblTlSeguro.Caption := FormatCurr(´,0.00´,pTotalSeguro);
end;


Obrigada,
[img:3cbadb8631]http://www.ona.hpg.com.br/ona/IsadoraOzeiaOna_8.jpg[/img:3cbadb8631]
Isadora.