AnalogGback(edServ.Text, edRBasePath.Text, edBackupPath.Text, 2, 1);

function AnalogGback(
  ServName: String;
  BasePath: String;
  BackupPath: String;
  ParamBkp: Integer;
  Regime: Integer): Integer;
var
  BkpServIB: TIBBackupService;
  Numb: Integer;
  BkpStro: string;
  EndBackupPath: string;
begin
  Result := 0;
  try
    BkpServIB := TIBBackupService.Create(nil);
    BkpServIB.Params.Text := 'user_name=sysdba'#13#10'password=masterkey';
    BkpServIB.ServerName := ServName;
    BkpServIB.Protocol := Local;
    BkpServIB.LoginPrompt := False;
    BkpServIB.Verbose := True;
    BkpServIB.TraceFlags := [tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect, tfTransact, tfBlob, tfService, tfMisc];
    case ParamBkp of
      1: BkpServIB.Options := [IgnoreChecksums, NoGarbageCollection];
      2: BkpServIB.Options := [NonTransportable, IgnoreLimbo];
    end;

    BkpServIB.BackupFile.Clear;

    if not FileExists(BasePath)
      then begin
        case Regime of
          1: ShowMessage('Файл исходной базы не найден!');
          2: LogStr('Файл исходной базы не найден!' + BasePath);
        end;
        Result := 1;
        Exit;
      end
      else BkpServIB.DatabaseName := BasePath;

    if (Regime = 1) and  (FileExists(BackupPath))
      then if MessageBox(Main_Frm.Handle,
                         StringToPWide('Такой бэкап уже существует! Все равно заменить?'),
                         StringToPWide('Предупреждение'), MB_YESNO) = mrNo
        then Exit;

    LogStr(CONST_LN_BKPSTART + CONST_LN_STBASE + BackupPath);

    EndBackupPath := BackupPath;
    BackupPath := ExtractFilePath(ParamStr(0)) + 'fbk_' + FormatDateTime('yyyymmddhhnnss', Now) + '.fbk';

    BkpServIB.BackupFile.Text := BackupPath;
    BkpServIB.Active := True;
    BkpServIB.ServiceStart;

    Numb := 0;
    while not BkpServIB.Eof do
    begin
      Numb := Numb + 1;
      try
        BkpStro := BkpServIB.GetNextLine;
        if Regime = 1
          then begin
            Main_Frm.mLog.Lines.Add(BkpStro);
            Application.ProcessMessages;
          end;
      except
        on e: Exception do
        begin
          case Regime of
            1: ShowMessage(CONST_READLINEERR + ' ' + e.Message);
            2: LogStr(CONST_READLINEERR + ' ' + e.Message);
          end;
          Result := 2;
          Exit;
        end;
      end;
    end;
    BkpServIB.Active := False;
    CopyFile(StringToPWide(BackupPath), StringToPWide(EndBackupPath), False);
    DeleteFile(StringToPWide(BackupPath));
    LogStr(CONST_LN_BKPEND + CONST_LN_STBKP + BackupPath);
  finally
    FreeAndNil(BkpServIB);
  end;
end;