IBTransaction1.StartTransaction;
with IBQuery1 do  begin
    Close;     
    SQL.Clear;
    SQL.Add(' INSERT INTO TEST  ');
    SQL.Add(' (ID, NAME)               ');
    SQL.Add('  VALUES                  ');
    SQL.Add(' (GEN_ID(GENID,1),  ');
    SQL.Add('  '''+QuotedStr(Name) +''' ') ;
    ExecSQL;
end;
IBTransaction1.Commit;

with IBQuery1 do  begin
    Close;     
    SQL.Clear;
    SQL.Add(' select id from 00000 ');
    SQL.Add(' where id =  00000    ') ;
    open;
    Result := FieldByName('ID').AsInteger; 
end;

보통 이렇게 사용하지 않나요?..