Sigo en la misma línea, de hecho:
Código Delphi
[-]
procedure TDataModule1.IBEvents1EventAlert(Sender: TObject; EventName: string;
EventCount: Integer; var CancelAlerts: Boolean);
begin
se ve que puede haber ocurrido una acumulación del mismo evento, por tanto es imposible saberlo.
La idea del compañero
pvizcay me parece más que acertada.
Saludos