Trigger no funciona

[bulc]

Código Delphi [-]
 // Código que he usado. Llamado por el evento OnKeyPress al detectar la tecla VK_INSERT
 FUNCTION GENERADOR( IBQuery1: TDBQuery; Gen_Name: String) : Integer;
 Begin
     IBQuery1.Close;
     IBQuery1.Clear;
     IBQuery1.Add('Select GEN_ID( Gen_Name,0) FROM RDB$DATABASE');
     IBQuery1.Open;
     Result: = IBQuery1.Fields[0].AsInteger;
     // Usaba Result:= IBQuery1.Params[0].AsInteger; pero daba: "Arguement Out of Range" Error. ¿Sabes por qué?
    // ShowMessage(' GEN_ID =  ' + IntToStr (Result ) );
 End;

Gracias por tu ayuda. Bulc