temporary table resource limit

procedure TfmPTKS.RzBitBtn1Click(Sender: TObject);
var I, P, T: Integer;
begin
  I := 0;
  P := 1;
  T := 0;
  if Application.MessageBox('Начать обновление справочников?', 'Подтверждение', mb_YESNO) = idYes then
  begin
    LogMemo.Lines.Clear;
    LogTo('Начало импорта данных');
    with DM do
    begin
      IBDatabase.Connected := True;
      try
        if not IBTransaction.InTransaction then
          IBTransaction.StartTransaction;
        try
          // список РСВ-1
          if CheckList.ItemChecked[1] then
          begin
            Application.ProcessMessages;
            LogTo('Импорт справочника "Список РСВ-1"...');
 
            qeSQL.Close;
            qeSQL.SQL.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'UPDATE_RSV_FROM_PTKA.sql');
            qeSQL.Open;
 
            qeSQL.FetchAll;
 
            qeSQL.First;
 
            LogTo(Format('Загружено записей: %d', [qeSQL.RecordCount]));
 
            IBSQL.SQL.Text := 'DELETE FROM RSV_FROM_PTKA';
            IBSQL.ExecQuery;
            
            IBStoredProc.Active := False;
            IBStoredProc.StoredProcName := 'UPDATE_RSV_FROM_PTKA';
            if not IBStoredProc.Prepared then
              IBStoredProc.Prepare;
            try
              while (not qeSQL.Eof) do
              begin
                for I := 0 to IBStoredProc.Params.Count - 1 do
                  IBStoredProc.Params[I].Clear;
 
                IBStoredProc.ParamByName('RAION').AsInteger := qeSQL.FieldByName('RAION').AsInteger;
                IBStoredProc.ParamByName('REGNUMB').AsInteger := qeSQL.FieldByName('REGNUMB').AsInteger;
                IBStoredProc.ParamByName('GOD').AsInteger := qeSQL.FieldByName('GOD').AsInteger;
                IBStoredProc.ParamByName('KVARTAL').AsInteger := qeSQL.FieldByName('KVARTAL').AsInteger;
                IBStoredProc.ParamByName('STR_100').AsFloat := qeSQL.FieldByName('STR_110').AsFloat;
                IBStoredProc.ParamByName('NAK_100').AsFloat := qeSQL.FieldByName('NAK_110').AsFloat;
                IBStoredProc.ParamByName('STR_110').AsFloat := qeSQL.FieldByName('STR_110').AsFloat;
                IBStoredProc.ParamByName('NAK_110').AsFloat := qeSQL.FieldByName('NAK_110').AsFloat;
                IBStoredProc.ParamByName('STR_140').AsFloat := qeSQL.FieldByName('STR_140').AsFloat;
                IBStoredProc.ParamByName('NAK_140').AsFloat := qeSQL.FieldByName('NAK_140').AsFloat;
                IBStoredProc.ParamByName('STR_150').AsFloat := qeSQL.FieldByName('STR_150').AsFloat;
                IBStoredProc.ParamByName('NAK_150').AsFloat := qeSQL.FieldByName('NAK_150').AsFloat;
                IBStoredProc.ParamByName('STR_114').AsFloat := qeSQL.FieldByName('STR_114').AsFloat;
                IBStoredProc.ParamByName('NAK_114').AsFloat := qeSQL.FieldByName('NAK_114').AsFloat;
                IBStoredProc.ParamByName('STR_144').AsFloat := qeSQL.FieldByName('STR_144').AsFloat;
                IBStoredProc.ParamByName('NAK_144').AsFloat := qeSQL.FieldByName('NAK_144').AsFloat;
                IBStoredProc.ParamByName('CNTZL').AsFloat := qeSQL.FieldByName('CNTZL').AsFloat;
                IBStoredProc.ParamByName('MWRK').AsFloat := qeSQL.FieldByName('MWRK').AsFloat;
                IBStoredProc.ParamByName('ENTER_DATE').AsDateTime := qeSQL.FieldByName('ENTER_DATE').AsDateTime;
                IBStoredProc.ParamByName('ADDRESS').AsString := Copy(Trim(qeSQL.FieldByName('ADDRESS').AsString), 1, 255);
 
                IBStoredProc.ExecProc;
 
                if (P mod 10000) = 0 then
                begin
                  LogTo(Format('%d записей импортировано', [P]));
                  Application.ProcessMessages;
                end;
 
                qeSQL.Next;
                Inc(P);
              end;
            finally
              if IBStoredProc.Prepared then
                IBStoredProc.UnPrepare;
            end;
 
            LogTo('...успешно завершен.');
          end;
//Здесь обрабатывается исключение.
except
          on E: Exception do
          begin
            IBTransaction.RollbackRetaining;
            LogTo('Ошибка. ' + E.Message);
          end;
        end;
      finally
        IBDatabase.Connected := False;
        qeSQL.Close;
        LogTo('Готово.');
      end;

unit uDM;
 
interface
 
uses
  SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBStoredProc, DBTables,
  SynEditHighlighter, SynHighlighterSQL, ImgList, Controls, Dialogs, IBSQL,
  Menus;
 
type
  TDM = class(TDataModule)
    SaveDBF: TSaveDialog;
    OpenDlg: TOpenDialog;
    SaveDlg: TSaveDialog;
    ImageList: TImageList;
    SynSQLSyn: TSynSQLSyn;
    DataSource: TDataSource;
    Database: TDatabase;
    qeSQL: TQuery;
    Table1: TTable;
    Table2: TTable;
    IBStoredProc: TIBStoredProc;
    IBTransaction: TIBTransaction;
    IBDatabase: TIBDatabase;
    IBSQL: TIBSQL;
    qeRSVEND: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  DM: TDM;
 
implementation
 
{$R *.dfm}
 
 
 
 
 
 
end.

procedure TfmPTKS.Query_Export;
var I: Integer;
begin
  with DM do
  begin
    if SaveDBF.Execute then
    begin
      Application.ProcessMessages;
      Screen.Cursor := crSQLWait;
      qeSQL.DisableControls;
      Table1.DisableControls;
      Table1.DatabaseName := ExtractFilePath(SaveDBF.FileName);
      Table1.TableName := ExtractFileName(SaveDBF.FileName);
      try
        qeSQL.First;
        Table1.Close;
        Table1.FieldDefs := qeSQL.FieldDefs;
        Table1.CreateTable;
        Table1.Open;
        repeat
          Application.ProcessMessages;
          Table1.Append;
          for I := 0 to qeSQL.Fields.Count - 1 do
              Table1.Fields[i].Value := qeSQL.Fields[i].Value;
          Table1.Post;
          qeSQL.Next;
        until qeSQL.Eof;
        SetLanguage(Table1);
      finally
        Table1.Close;
        Table1.EnableControls;
        qeSQL.EnableControls;
        Screen.Cursor := crDefault;
        ShowMessage('OK');
      end;
    end;
  end;
end;