Fórum Calcular campos de uma tabela #283651

Estou com o seguinte problema:
Tenho um relatório de fluxo de caixa (tabelas entrada e saida) e no fim do relatorio exibiria a soma de tds os regitros d entrada e saida exbibidos e o lucro (entrada-saida). Tentei usar esta estrutura para o calculo, mas ela da erro:
TBEntrada.first;
TBSaida.first;
entrada:=0;//variavel
saida:=0;//variavel
repeat
if TBEntrada[´Data´]=data then //no caso a data cadastrada na tabela com a data escolhida pelo usuario
entrada:=entrada+TBEntrada[´Valor´]
else
TBEntrada.next;
until TBEntrada.Eof;
repeat
if TBSaida[´Data´]=data then
saida:=saida+TBSaida[´Valor´]
else
TBSaida.next;
until TBSaida.Eof;
lucro:=entrada-saida;

logo após isso ele acusa um erro.
pensei em usar o OnCalcFields, porém não sei usá-lo direito. Será que alguém poderia me ajudar?

VLW