Auditoria Paradox

Preciso fazer uma auditoria no banco de dado, porém ele é Paradox, o código abaixo não funciona, eu coloquei no evento beforepost da tabela o código, porém entra em recursividade, com a linha indicada


procedure TDMHistorico.tHistoricoBeforeRefresh(DataSet: TDataSet);
begin
Auditoria(tHistorico);
end;


procedure Auditoria(pTable: TTable);
var
iContador: Integer;
sOld, sNew: string;
begin
pTable.CachedUpdates := True; <<<<<<<<<<---------------------- aqui
for iContador := 0 to pTable.FieldCount - 1 do
begin
if (not VarIsClear(pTable.Fields[iContador].NewValue)) then
begin
sOld := CampoToStr(pTable.Fields[iContador].OldValue);
sNew := CampoToStr(pTable.Fields[iContador].NewValue);
ShowMessage(pTable.Fields[iContador].FieldName + ´:´ + sOld + ´ para ´ + sNew);
end;
end;
pTable.CachedUpdates := False;


Obrigado