Performance - otimizando calcfields

Procedure TForm1.BigProcessingFunction;

begin

  Table1.OnCalcFields := nil;

 <Do massive processing here!>

  Table1.OnCalcFields := Table1OnCalcFields;

end;