campo calculado em QuickReport

procedure TFrmRelatorio01.IBQuery1CalcFields(DataSet: TDataSet);
begin
  inherited;

  //Se o registro atual for receita, Some a receita
  If IBQuery1TIPO.AsString = ´R´ Then
    Receita := Receita + IBQuery1MVVALORPGTO.AsCurrency
  Else // Se for despesa some a despesa
    Despesa := Despesa + IBQuery1MVVALORPGTO.AsCurrency;

  IBQuery1TOTALRECEITA.Value := Receita; // campos criados
  IBQuery1TOTALDESPESA.Value := Despesa; // Tipo Calculado
  // No final tenho a soma da despesa e da receita.

end;

procedure TFrmRelatorio01.QuickRep1AfterPreview(Sender: TObject);
begin
  inherited;
  Receita := 0;
  Despesa := 0;
  // Zero os valores semore depois do preview
end;