IBEvents funktioniert nicht

[toyohj60]

Hallo,

ich bekomme die IBEvents einfach nicht ans laufen:

Delphi-Quellcode:

begin
.
.
      DataModule2.IBDatabase1.DatabaseName:= DataBase;
      IBEvents1.Database:= DataModule2.IBDatabase1;
      IBEvents1.AutoRegister:= True;
      DataModule2.IBDatabase1.Open;

.
.
end;

procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  if EventName = 'Update' then
  Application.MessageBox('Es wurde ein Update gemacht!' ,'Achtung',16);
end;

die Eigenschaft Events ist im OI schon auf 'Update' eingestellt.

In der DB steht folgender Trigger:

SQL-Code:

SET TERM  ^^ ;
CREATE TRIGGER TR_UPDATE FOR KUNDEN ACTIVE AFTER UPDATE POSITION 0 AS
begin
  Post_Event 'Update';
end
 ^^
SET TERM ;  ^^

Es wird keine Fehlermeldung ausgegeben. Es passiert einfach NICHTS!

Was ist hier falsch??

tschüß, Steffen