[firebase-br] GEN_ID x dbExpress

[Álvaro Vieira]

Pessoal,

Tentei usar a função abaixo para me retornar o próximo valor de um 
GENERATOR, mas não está funcionando.

Uso: Delphi 6 / Firebird 1.5 / dbExpress

01 function TDataMod.GetNextID : Integer;
02 var
03   qry : TSQLQuery;
04 begin
05   qry := TSQLQuery.Create(nil);
06   qry.SQLConnection := DataMod.DB;
07   qry.SQL.Text := 'select gen_id(GN_GERAL, 1) from rdb$database';
08   qry.Open;
09   Result := qry.Fields[0].AsInteger;
10   qry.Close;
11   FreeAndNil(qry);
12 end;

Na linha 12, apresenta a mensagem: "... EConvertError with message 
"6029=' is not a valid floating point value'".

Alguém pode me passar alguma dica? Será incompatibilidade do dbExpress 
com o Firebird???

--
Álvaro Vieira
arcoverdeneto em yahoo.com.br