qryWrite.Transaction.StartTransaction;
    qryWrite.SQL.Clear;
    qryWrite.SQL.Append(
      'CREATE GLOBAL TEMPORARY TABLE KLADR_DOM_NEW (' +
        'ID_KLADR_DOM            D_ID_MAIN NOT NULL,' +
        'KLADR_DOM_ID_REGIONS    D_SMALLINT,' +
        'KLADR_DOM_ADDRESS_CODE  D_ID_MAIN,' +
        'KLADR_DOM_NAME          D_NAME,' +
        'KLADR_DOM_ABBREV_LEVEL  D_SMALLINT,' +
        'KLADR_DOM_ID_ABBREV     D_SMALLINT,');
    qryWrite.SQL.Append(
        'KLADR_DOM_UNO           D_SMALLINT DEFAULT 0,' +
        'KLADR_DOM_GNINMB        D_SMALLINT DEFAULT 0,' +
        'KLADR_DOM_INDEX         D_INTEGER ,' +
        'KLADR_DOM_OCATO0        D_INTEGER ,' +
        'KLADR_DOM_OCATO1        D_INTEGER ,' +
        'KLADR_DOM_OCATO2        D_INTEGER ,' +
        'KLADR_DOM_OCATO3        D_INTEGER);');

    qryWrite.ExecQuery;

    qryWrite.SQL.Clear;
    qryWrite.SQL.Append('insert into KLADR_DOM_NEW (KLADR_DOM_ID_REGIONS, KLADR_DOM_ADDRESS_CODE, KLADR_DOM_NAME,KLADR_DOM_ABBREV_LEVEL, KLADR_DOM_ID_ABBREV, KLADR_DOM_UNO,KLADR_DOM_GNINMB, KLADR_DOM_INDEX, KLADR_DOM_OCATO0,KLADR_DOM_OCATO1, KLADR_DOM_OCATO2, KLADR_DOM_OCATO3)' );
    qryWrite.SQL.Append('values (1,  10000000, ''двлд45,двлд43,двлд41,двлд39,двлд37'', 6, 1, 0, 105, 385000, 79, 401, 0, 0)');
    qryWrite.ExecQuery;

---------------------------
Debugger Exception Notification
---------------------------
Project netdbs_2010.exe raised exception class EFIBInterBaseError with message 'fmMain.fmKLADRImport.qryWrite:
Can't format message 13:796 -- message file D:\Proj\firebird.msg not found.
Dynamic SQL Error.
SQL error code = -204.
Table unknown.
KLADR_DOM_NEW.
At line 1, column 13.
'.
---------------------------
Break   Continue   Help   
---------------------------

    qryWrite.SQL.Clear;
    qryWrite.SQL.Append('insert into KLADR_DOM_NEW (KLADR_DOM_ID_REGIONS, KLADR_DOM_ADDRESS_CODE, KLADR_DOM_NAME,KLADR_DOM_ABBREV_LEVEL, KLADR_DOM_ID_ABBREV, KLADR_DOM_UNO,KLADR_DOM_GNINMB, KLADR_DOM_INDEX, KLADR_DOM_OCATO0,KLADR_DOM_OCATO1, KLADR_DOM_OCATO2, KLADR_DOM_OCATO3)' );
    qryWrite.SQL.Append('values (1,  10000000, ''двлд45,двлд43,двлд41,двлд39,двлд37'', 6, 1, 0, 105, 385000, 79, 401, 0, 0)');
   qryWrite.ExecQuery;

qryWrite.SQL.Clear;
qryWrite.SQL.Append('insert into KLADR_DOM_NEW (KLADR_DOM_ID_REGIONS, KLADR_DOM_ADDRESS_CODE, KLADR_DOM_NAME,KLADR_DOM_ABBREV_LEVEL, KLADR_DOM_ID_ABBREV, KLADR_DOM_UNO,KLADR_DOM_GNINMB, KLADR_DOM_INDEX, KLADR_DOM_OCATO0,KLADR_DOM_OCATO1, KLADR_DOM_OCATO2, KLADR_DOM_OCATO3)' );
qryWrite.SQL.Append('values (:KLADR_DOM_ID_REGIONS, :KLADR_DOM_ADDRESS_CODE, :KLADR_DOM_NAME, :KLADR_DOM_ABBREV_LEVEL, :KLADR_DOM_ID_ABBREV, :KLADR_DOM_UNO, :KLADR_DOM_GNINMB, :KLADR_DOM_INDEX, :KLADR_DOM_OCATO0, :KLADR_DOM_OCATO1, :KLADR_DOM_OCATO2, :KLADR_DOM_OCATO3)');
qryWrite.Prepare;
dbfTable.Open;
while not dbfTable.Eof do
begin
  qryWrite.ParamByName('KLADR_DOM_ID_REGIONS').AsInteger := dbfTable.FieldByName('KLADR_DOM_ID_REGIONS').AsInteger;
....
  qryWrite.ExecQuery;
  dbfTable.Next;
end;
dbfTable.Close;