SOLUCION:
Código:
...
var
p : TDataSetNotifyEvent;
pt : pointer;
begin
...
p:= dataset.OnCalcFields;
pt := @dataset.OnCalcFields;
dataset.OnCalcFields := nil;
...
// calculos con los campos
...
dataset.OnCalcFields := p;
if pt <> nil then
dataset.OnCalcFields(dataset);
...