procedure TMainForm.RunMe(Sender: TObject);
var D, SQLText: String; TList, FList: TStrings; T, F: integer;
begin
  TButton(Sender).Enabled:=False;
  TList:= TStringList.Create; FList:= TStringList.Create;
  Memo1.Lines.Clear;
  d:=StringReplace(StringReplace(StringReplace(DateTimeToStr(Now),
                   ':', '-', [rfReplaceAll]),
                   ' ', '-', [rfReplaceAll]),
                   '.', '-', [rfReplaceAll]);
  // Проверяем наличие новых структур
  if not FileExists(ExtractFilePath(ParamStr( 0 ))+'\NEW_STR.FBK') then begin
     ShowMessage('Файл структур "NEW_STR.FBK" не найден'); Exit; end;
  // Пробуем наличие доступа к файлу базы
  If not RenameFile('BASE.FDB','BASE-'+D+'.FDB') then begin
     ShowMessage('Файл базы данных "BASE.FDB" недоступен для записи.'+# 13 
                +'Убедитесь, что к базе данных нет подключений.'); Exit; end;
  Memo1.Lines.Append('Создана копия рабочей базы "BASE-'+D+'.FDB"');
  Memo1.Lines.Append('');
  // Распаковываем структуры
  try with FIBR do begin
     Memo1.Lines.Append('Открытие файла структур');
     Memo1.Lines.Append('');
     Application.ProcessMessages;
     BackupFile.Text:=ExtractFilePath(ParamStr( 0 ))+'\NEW_STR.FBK';
     DataBaseName.Text:=ExtractFilePath(ParamStr( 0 ))+'\BASE.FDB';
     Active:=True;
     FIBR.ServiceStart;
     Active:=False;
  end except ShowMessage('Ошибка раскрытия файла структур'); Exit; end;
  // Цепляемся к базам
  Memo1.Lines.Append('');
  Memo1.Lines.Append('Подключение к базам');
  FIB1.DBName:='127.0.0.1:'+ExtractFilePath(ParamStr( 0 ))+'\BASE-'+D+'.FDB';
  FIB2.DBName:='127.0.0.1:'+ExtractFilePath(ParamStr( 0 ))+'\BASE.FDB';
  FIB1.Open(True); FIB2.Open(True);
  // Переносим значения генераторов
  Memo1.Lines.Append('');
  Memo1.Lines.Append('получение списка генераторов');
  TList.Text:=StringReplace(StringReplace(
        FIB1.QueryValueAsStr('select list(rdb$generator_name) from '
                            +'rdb$generators where ((rdb$system_flag = 0) '
                            +'or (rdb$system_flag is null))', 0 ,[]),
                 ' ','', [rfReplaceAll]),',',# 13 # 10 , [rfReplaceAll]);
  Memo1.Lines.AddStrings(TList);
  For T:= 0  to TList.Count- 1  do FIB2.QueryValue('SET GENERATOR '+TList[T]
                              +' TO '+IntToStr(FIB1.Gen_Id(TList[T], 0 )),  0 );

  // создаем очередь заполнения таблиц с учетом Foreign Keys
  TList.Clear;
  TList.Append('BLISTS');
  TList.Append('CLIENTS');
  TList.Append('USERS');
  TList.Append('TIME_RANGES');
  TList.Append('CATEGORIES');
  TList.Append('KASSA_TYPES');
  TList.Append('MATERIALS');
  TList.Append('USLUGI');
  TList.Append('MKB10');
  TList.Append('RESOURCE');
  TList.Append('SETTINGS');
  TList.Append('STAT_TYPES');
  TList.Append('SMS');
  TList.Append('SMS_RESPONSES');
  TList.Append('TEMPLATES');
  TList.Append('KASSA');
  TList.Append('MAT_FEE');
  TList.Append('USL_FEE');
  TList.Append('CARDS');
  TList.Append('VISITS');
  TList.Append('VIS_MAT');
  TList.Append('VIS_STAT');
  TList.Append('VIS_USL');
  TList.Append('PLANDB');

  Memo1.Lines.Append('');
  Memo1.Lines.Append('Создан список таблиц');
  Memo1.Lines.AddStrings(TList);

  for T:= 0  to TList.Count- 1  do begin
    Memo1.Lines.Append('');
    Memo1.Lines.Append('Заполнение таблицы '+TList.Strings[T]);
    FIB1.GetFieldNames(TList.Strings[T], FList, False);
    // Формируем запрос на добавление записей в слейв-таблицу
    SQLtext:='INSERT INTO '+TList.Strings[T]+' ('+FList[ 0 ];
    for F:= 1  to FList.Count- 1  do SQLText:=SQLText+', '+FList[F];
    SQLText:=SQLText+') VALUES(?'+FList[ 0 ];
    for F:= 1  to FList.Count- 1  do SQLText:=SQLText+', ?'+FList[F];
    SQLText:=SQLText+')';
    // открываем датасет и делаем батч
    DSet.Active:=False; DSet.SelectSQL.Text:='SELECT * FROM '+TList[T]; DSet.Open;
    Query.SQL.Text:=SQLText;
    DSet.BatchAllRecordsToQuery(Query);
    TR2.CommitRetaining;
    Memo1.Lines.Append('УСПЕШНО!');
  end;


  TList.Free; FList.Free;
  Memo1.Lines.Append('');
  Memo1.Lines.Append('Удаление использованного файла структур');
  DeleteFile(ExtractFilePath(ParamStr( 0 ))+'\NEW_STR.FBK');
  Memo1.Lines.Append('--------------------------------------');
  Memo1.Lines.Append('Обновление структур успешно закончено!');
end;