Campos calculados

[Parsec]

Hola,

esto es algo que me tiene intrigado, no se porque se comporta de esta forma.
Tengo una Table con varios campos calculados y tengo activada la propiedad OnCalcFields de Table1 , cuando pongo en marcha el programa siempre entra 4 veces en la procedure:

Código Delphi [-]
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
      i:=I+1;
      Showmessage('Entra '+ IntToStr(I));
end;

¿Alguien me podría explicar porque entra siempre 4 veces, independientemente de los campos calculados que tenga?

Saludos