Fórum Rotinas p/ retorno do sequêncial via identity no Interbase #167435

Qual a rotina para retornar o sequêncial via Identity no Interbase.
Tenho a seguinte rotina. Funciona?
Function
begin
try
with query do
begin
sql.clear;
sql.add(´VALUES IDENTITY_VAL_LOCAL()´);
open;
Result := Fields[0].AsInteger;
Close;
If (Result = -1) then
raise Exception.Create(´Não foi possível recuperar o sequêncial gerado!´);
end; // with
except
raise;
end;//try
end;