Código Delphi
[-]
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;
End;
Gracias por tu ayuda. Bulc