[firebase-br] Erro Aleatório em Generator

[Valdir Dill]

Tenho a seguinto função para incrementar o nr do generator:

"
function NovoCodigoGenerator : Integer;
begin
 SQLQuery.Close;
 SQLQuery.SQL.Clear;
 SQLQuery.SQL.Add('SELECT Cast(GEN_ID(MeuGenerator,1) as Integer)as VNumero 
FROM RDB$DATABASE');
 SQLQuery.Open;
 Result := SQLQuery.Fields[0].AsInteger;
 SQLQuery.Close;
end;
"
Essa função funciona bem. O problema é que, às vezes a função retorna o novo 
número do generator, mas não grava isso no banco de dados.
Por exemplo: o nr do generator atual é 48. Ao executar a função deveria 
retornar e gravar o nr 49. Na maioria das vezes é isso que acontece, ou 
seja, faz certinho.
Quando ocorre o erro não é comigo, é com usuários. Por isso não consigo 
debugar. E só acontece muito raramente.
Será que alguém tem alguma idéia do que poderia estar causando essa falha?

Obrigado.