Gracias Chris!
Lo he solucionado con la segunda opcion sugerida por ti.
Código Delphi
[-]
Dm.ObtenerIDQUERY.Close;
Dm.ObtenerIDQUERY.SQL.Clear;
Dm.ObtenerIDQuery.SQL.Text := 'SELECT GEN_ID(INASISTENCIAS_ID_GEN, 0) from RDB$DATABASE;';
Dm.ObtenerIDQuery.Open;
Indice := Dm.ObtenerIDQuery.FieldByName('GEN_ID').AsInteger;
Solo modifique la sentencia dentro del paréntesis del SELECT a 0 porque si no me sumaba uno al que habia generado.
Gracias nuevamente...
Saludos !!!
Martin