Pobranie obecnej wartości generatora w InterBase

Witam. Jak pobrać za pomocą delphi obecną wartość generatora w InterBase?
Z góry dziękuję za pomoc.

za pomocą DBXpress można to tak zrobić:

sqlds.CommandText :=' select  GEN_ID(TABLE_ID_GEN, 0) as LAST_ID from rdb$database';
sqlds.Open;
last_id := sqlds.fieldbyname('LAST_ID').asinteger;

poprawienie znaczników <code class="delphi"> - fp