Привет народ.
Исопльзую берд 2.0
и какой-то IBX (Ddelphi 7)
Возникает такая проблема: есть функция, которая через SQL-запрос генерирует новый ID

  tmpIBSQL.Close;
  tmpIBSQL.SQL.Clear;
  tmpIBSQL.SQL.Add('SELECT gen_id(GEN_'+table+'_ID, 1) from ' + table + ';');
  tmpIBSQL.Prepare;
  tmpIBSQL.ExecQuery;
  result := tmpIBSQL.FieldByName('GEN_ID').AsInteger;
  tmpIBSQL.Close;

В большенстве слчаев работает нормально. но если сбросить генератор некоторых таблиц (в 1 например), то функция возвращает всегда 0 (NULL).
даже если через IBExpress запрос послать, вохвращает НУЛЬ.
Где нужно бубном потрясти, чтобы не было такого?

Заранее спасибо