Fórum Erro ao executar comando no Backup #411224

function TfrmBackup.RealizaBackup_Completo: Boolean;
var
  caminho_Bkp: string;
begin
  Result := False;
  if OpenDialog1.Execute then
  begin
    try
      edtInfoArquivo.Clear;
      Result := True;
      Screen.Cursor := crHourGlass;
      caminho_Bkp := ExtractFilePath(OpenDialog1.FileName);
      IBBackupService1.ServerName := Dados.Servidor;
      IBBackupService1.Protocol := TCP;
      IBBackupService1.LoginPrompt := False;
      IBBackupService1.Params.Add(user_name=SYSDBA);
      IBBackupService1.Params.Add(password=masterkey);
      IBBackupService1.Options := [IgnoreLimbo,NoGarbageCollection,NonTransportable];
      IBBackupService1.Verbose := True;
      IBBackupService1.DatabaseName := OpenDialog1.FileName;
      IBBackupService1.BackupFile.Clear;
      IBBackupService1.BackupFile.Add(ChangeFileExt(caminho_Bkp + Backup_ +
             FormatDateTime(yyyymmddhhnn, Now), .gbk));
      try
        IBBackupService1.Active := True;
        edtInfoArquivo.Lines.Add(Criado em: );
        edtInfoArquivo.SelAttributes.Color := clBlack;
        edtInfoArquivo.SelAttributes.Style := [fsBold];
        edtInfoArquivo.Lines.Add(    + caminho_Bkp);
        edtInfoArquivo.Lines.Add(com nome:);
        edtInfoArquivo.SelAttributes.Color := clBlue;
        edtInfoArquivo.SelAttributes.Size := 14;
        edtInfoArquivo.Lines.Add(ExtractFileName(Trim(IBBackupService1.BackupFile.Text)));
        edtInfoArquivo.Lines.Add(Formato do nome do arquivo: Backup_AnoMesDiaHoraMinuto);
        edtInfoArquivo.SelAttributes.Color := clGreen;
        edtInfoArquivo.SelAttributes.Size := 12;
        edtInfoArquivo.Lines.Add(Format(Iniciado   às %s h, [FormatDateTime(hh:nn:ss, Now)]));
        IBBackupService1.ServiceStart;
        mmoEstrutura.Lines.Clear;
        while not IBBackupService1.Eof do
          mmoEstrutura.Lines.Add(IBBackupService1.GetNextLine);
        edtInfoArquivo.SelAttributes.Color := clGreen;
        edtInfoArquivo.SelAttributes.Size := 12;
        edtInfoArquivo.Lines.Add(Format(Finalizado às %s h, [FormatDateTime(hh:nn:ss, Now)]));
      except
        Result := False;
        edtInfoArquivo.SelAttributes.Color := clRed;
        edtInfoArquivo.SelAttributes.Size := 12;
        edtInfoArquivo.Lines.Add(Problemas na realização do backup);
      end;
    finally
      IBBackupService1.Active := False;
      Screen.Cursor := crDefault;
    end;
  end;
end;

       mmoEstrutura.Lines.Add(IBBackupService1.GetNextLine);