Программное создание базы данных FireBird

[Lokos]

При попытке создания базы данных появляется следующая ошибка.

Project Project1.exe raised exception class EFIBInterBaseError with massage 'DM.FIBQCR: Unsuccessful excution caused by system error thet does not preclude successful execution of subsequent statements.
Invalid transaction handle (expecting explicit transaction start).
'.

Причем база создается но не с двумя таблицами а с одной. (sotrudniki)
Может что где не учел.
Вот код

//////////////////////////////создание базы/////////////////////////////////////
   dm.CRDB.Connected:=false;
   DM.CRDB.LibraryName:=OpPutDll.Text;
   dm.CRDB.DBParams.Clear;
   dm.CRDB.DBParams.Add('USER ''SYSDBA'' PASSWORD ''masterkey''');
   dm.CRDB.DBParams.Add('PAGE_SIZE = 2048');
   dm.CRDB.DBParams.Add('DEFAULT CHARACTER SET WIN1251');
   dm.CRDB.DBName := 'localhost:C:\test\TEST.fdb';
   dm.CRDB.SQLDialect := 3;
   dm.CRDB.CreateDatabase;
   DM.CRDB.Connected:=true;
   dm.FIBTCR.Active:=true;

[Lokos]

Извиняюсь что на несколько топов но все в один не влазиет

/////////////////////Создание таблицы сотрудники////////////////////////////////
   dm.FIBTCR.Active:=true;
   DM.FIBQCR.Close;
   DM.FIBQCR.SQL.text:='CREATE TABLE SOTRUDNIKI ('+
    'ID                  INTEGER NOT NULL,    '+
    '"ROLE"              VARCHAR(10) NOT NULL,'+
    'PAS                 VARCHAR(10) NOT NULL,'+
    '"№ УДОСТОВЕРЕНИЯ"   VARCHAR(10) NOT NULL,'+
    '"ИМЯ"               VARCHAR(20) NOT NULL,'+
    '"ФАМИЛИЯ"           VARCHAR(20) NOT NULL,'+
    '"ОТЧЕСТВО"          VARCHAR(20) NOT NULL,'+
    '"ТЕЛЕФОН"           VARCHAR(15) NOT NULL,'+
    '"АДРЕС ЭЛ. ПОЧТЫ"   VARCHAR(50),         '+
    '"№ АГЕНСТВА"        INTEGER NOT NULL,    '+
    '"ДАТА ПРИЕМА"       VARCHAR(25) NOT NULL,'+
    '"СТАТУС"            VARCHAR(10) NOT NULL,'+
    '"ОБРАЗОВАНИЕ"       VARCHAR(250),        '+
    '"ДОП. ОБРАЗОВАНИЕ"  VARCHAR(250),        '+
    '"ПРИМЕЧАНИЕ"        VARCHAR(250),        '+
    '"ФОТО"              BLOB SUB_TYPE 0 SEGMENT SIZE 16384,'+
    '"ДОЛЖНОСТЬ"         VARCHAR(25) NOT NULL)';
   DM.FIBQCR.ExecQuery;
   Dm.FIBQCR.Transaction.Commit;
/////////////////////Создание таблицы недвижимость//////////////////////////////
   DM.FIBQCR.Close;
   DM.FIBQCR.SQL.text:='CREATE TABLE NEDVIGEMOST (          '+
    'ID                             INTEGER NOT NULL,                  '+
    '"ФИО АГЕНТА"              VARCHAR(50) NOT NULL,              '+
    '"№ УДОСТОВЕРЕНИЯ"     VARCHAR(10) NOT NULL,              '+
    '"ТЕЛЕФОН АГЕНТА"       VARCHAR(18) NOT NULL,              '+
    '"ДОГОВОР №"             INTEGER NOT NULL,                  '+
    '"ДО ЧИСЛА"               DATE NOT NULL,                     '+
    '"ДОКУМЕНТ"              VARCHAR(30) NOT NULL,              '+
    '"ДОЛЯ"                      VARCHAR(5) NOT NULL,               '+
    '"ДОКУМЕНТ №"            VARCHAR(15) NOT NULL,              '+
    '"ДАТА ВЫДАЧИ"           DATE NOT NULL,                     '+
    '"ПРИЧИНА ОПЕКИ"        VARCHAR(255),                      '+
    '"КОЛ-ВО ПРОПИСАН."    INTEGER,                           '+
    '"ОБРЕМЕНЕНИЕ"            VARCHAR(50),                       '+
    '"ЗАДОЛЖНОСТЬ"         VARCHAR(50),                       '+
    '"СТРАНА"                    VARCHAR(20) NOT NULL,              '+
    '"РЕГИОН"                    VARCHAR(50),                       '+
    '"КРАЙ"                        VARCHAR(40) NOT NULL,              '+
    '"НАСЕЛЕННЫЙ ПУНКТ"  VARCHAR(100) NOT NULL,             '+
    '"РАЙОН"                     VARCHAR(50),                       '+
    '"УЛИЦА"                    VARCHAR(50) NOT NULL,              '+
    '"ДОМ"                       VARCHAR(20) NOT NULL,              '+
    '"ПЕРВ. ЖИЛ. ФОНД"    VARCHAR(50) NOT NULL,              '+
    '"ВТОР. ЖИЛ. ФОНД"    VARCHAR(50) NOT NULL,              '+
    '"ЗЕМЕЛЬН. УЧАСТОК"   VARCHAR(50) NOT NULL,              '+
    '"ПРОИЗ. ПОМЕЩЕНИЯ"  VARCHAR(50) NOT NULL,              '+
    '"КОМНАТ"                   INTEGER NOT NULL,                  '+
    '"ТИП ДОМА"             VARCHAR(50) NOT NULL,              '+
    '"СЕРИЯ ДОМА"           VARCHAR(50) NOT NULL,              '+
    '"ПЛАН"                     VARCHAR(50) NOT NULL,              '+
    '"ОБЩ. ПЛОЩАДЬ"      INTEGER NOT NULL,                  '+
    '"ЖИЛ. ПЛОЩАДЬ"      INTEGER NOT NULL,                  '+
    '"КУХНЯ"                    INTEGER NOT NULL,                  '+
    '"ЗЕМЛЯ"                    INTEGER NOT NULL,                       '+
    '"ГОД ПОСТРОЙКИ"        DATE NOT NULL,                           '+
    '"ЭТАЖНОСТЬ ДОМА"    INTEGER NOT NULL,                        '+
    '"БАЛКОН"                   VARCHAR(255) NOT NULL,                '+
    '"ЭТАЖ"                     VARCHAR(15) NOT NULL,                   '+
    '"САНУЗЕЛ"                 VARCHAR(255) NOT NULL,                  '+
    '"СВЯЗЬ"                     VARCHAR(255) NOT NULL,                    '+
    '"ДАТА ДОБАВЛЕНИЯ"   DATE NOT NULL,                                '+
    '"ЦЕНА"                      NUMERIC(18,2) NOT NULL,                   '+
    '"АВАНС"                     VARCHAR(50),                                   '+
    '"ТИП ВАЛЮТЫ"           VARCHAR(30) NOT NULL,                     '+
    '"БЛИЗНЕЦЫ"               VARCHAR(4),                                     '+
    '"ТИП ЖИЛЬЯ"              VARCHAR(50) NOT NULL,                     '+
    '"РАСПОЛОЖЕНИЕ"       BLOB SUB_TYPE 0 SEGMENT SIZE 16384,'+
    '"ФОТО 1"                   BLOB SUB_TYPE 0 SEGMENT SIZE 16384,'+
    '"ФОТО 2"                   BLOB SUB_TYPE 0 SEGMENT SIZE 16384,'+
    '"ФОТО 3"                   BLOB SUB_TYPE 0 SEGMENT SIZE 16384,'+
    '"СТАТУС КВАРТИРЫ"    VARCHAR(25) NOT NULL)';
   DM.FIBQCR.ExecQuery;
   Dm.FIBQCR.Transaction.Commit;