OnCalcfield 6x ausgelöst bei 2 Datensätzen

[Karstadt]

Hallo. Wie kann ich das Ereigniss nur 1x pro datensatz auslösen?

Delphi-Quellcode:

    with Tabelle do
    begin 
      ControlsDisabled;
      Tag := 1;
      refresh;
      Tag := 0;
      EnableControls;
    end;


  ONCALCFIELD
  begin
     with Tabelle do
     begin
      IF Tag = 1 then exit; 
      Showmessage(''); // 6 mal bei 2 Datensätzen? WARUM?
    end;
  end;