Untitled

 avatar
unknown
pascal
9 months ago
76 kB
3
Indexable
unit uComponente.Traducao;

interface

uses
  Winapi.Windows, Vcl.Consts, System.Classes, System.SysUtils, System.NetConsts, Data.DBConsts, REST.Consts, IdResourceStrings,
  IdResourceStringsProtocols, IdResourceStringsCore, dxCore, cxGridStrs, dxNavBarConsts;

const
  IDIOMA_PT_BR = 'PT_BR';
  IDIOMA_EN_US = 'EN_US';
  IDIOMA_ES_ES = 'ES_ES';

  // TacBotoesCadastro
  sBtCaptionGravar_PTBR = 'Gravar';
  sBtCaptionGravar_ENUS = 'Save';
  sBtCaptionGravar_ESES = 'Guardar';

  sBtCaptionExcluir_PTBR = 'Excluir';
  sBtCaptionExcluir_ENUS = 'Delete';
  sBtCaptionExcluir_ESES = 'Borrar';

  sBtCaptionCancelar_PTBR = 'Cancelar';
  sBtCaptionCancelar_ENUS = 'Cancel';
  sBtCaptionCancelar_ESES = 'Cancelar';

  sBtCaptionDuplicar_PTBR = 'Duplicar';
  sBtCaptionDuplicar_ENUS = 'Duplicate';
  sBtCaptionDuplicar_ESES = 'Duplicar';

  sBtCaptionEnviarPorEmail_PTBR = 'Enviar por E-mail';
  sBtCaptionEnviarPorEmail_ENUS = 'Send by E-mail';
  sBtCaptionEnviarPorEmail_ESES = 'Enviar por E-mail';

  sBtCaptionSituacao_PTBR = 'Situation';
  sBtCaptionSituacao_ENUS = 'Situação';
  sBtCaptionSituacao_ESES = 'Situación';

  sBtCaptionNovo_PTBR = 'Novo';
  sBtCaptionNovo_ENUS = 'New';
  sBtCaptionNovo_ESES = 'Nuevo';

  sBtCaptionConsultar_PTBR = 'Consultar';
  sBtCaptionConsultar_ENUS = 'Search';
  sBtCaptionConsultar_ESES = 'Buscar';

  sBtCaptionLimpar_PTBR = 'Limpar';
  sBtCaptionLimpar_ENUS = 'Clean';
  sBtCaptionLimpar_ESES = 'Limpio';

  sBtCaptionPrimeiro_PTBR = 'Primeiro';
  sBtCaptionPrimeiro_ENUS = 'First';
  sBtCaptionPrimeiro_ESES = 'Primeiro';

  sBtCaptionAnterior_PTBR = 'Anterior';
  sBtCaptionAnterior_ENUS = 'Prior';
  sBtCaptionAnterior_ESES = 'Anterior';

  sBtCaptionProximo_PTBR = 'Próximo';
  sBtCaptionProximo_ENUS = 'Next';
  sBtCaptionProximo_ESES = 'Cerca';

  sBtCaptionUltimo_PTBR = 'Último';
  sBtCaptionUltimo_ENUS = 'Last';
  sBtCaptionUltimo_ESES = 'Pasado';

  sBtCaptionSelecionar_PTBR = 'Selecionar';
  sBtCaptionSelecionar_ENUS = 'Select';
  sBtCaptionSelecionar_ESES = 'Seleccionar';

  sBtCaptionImprimir_PTBR = 'Imprimir';
  sBtCaptionImprimir_ENUS = 'Print';
  sBtCaptionImprimir_ESES = 'Impresión';

  sBtCaptionExportarParaArquivo_PTBR = 'Exportar para Arquivo';
  sBtCaptionExportarParaArquivo_ENUS = 'Export to File';
  sBtCaptionExportarParaArquivo_ESES = 'exportar a archivo';

  sBtCaptionExtras_PTBR = 'Extras';
  sBtCaptionExtras_ENUS = 'More';
  sBtCaptionExtras_ESES = 'Extras';

  sBtCaptionSair_PTBR = 'Sair';
  sBtCaptionSair_ENUS = 'Exit';
  sBtCaptionSair_ESES = 'Dejar';

  sBtCaptionAjuda_PTBR = 'Ajuda';
  sBtCaptionAjuda_ENUS = 'Help';
  sBtCaptionAjuda_ESES = 'Ayuda';

  sBtHintSituacao_PTBR = 'Alterar situação';
  sBtHintSituacao_ENUS = 'Change situation';
  sBtHintSituacao_ESES = 'Cambiar la situación';
  // -- Fim TacBotoesCadastro

  sCaptionCarregarVisaoGrade_PTBR = 'Carregar Visão da Grade';
  sCaptionCarregarVisaoGrade_ENUS = 'Load Grid View';
  sCaptionCarregarVisaoGrade_ESES = 'Cargar Vista de La Cuadrícula';

  sCaptionCentroCusto_PTBR = 'Centro de Custo';
  sCaptionCentroCusto_ENUS = 'Cost Center';
  sCaptionCentroCusto_ESES = 'Centro de Coste';

  sCaptionConsolidacao_PTBR = 'Consolidação';
  sCaptionConsolidacao_ENUS = 'Consolidation';
  sCaptionConsolidacao_ESES = 'Consolidación';

  sCaptionConsolidado_PTBR = 'Consolidado';
  sCaptionConsolidado_ENUS = 'Consolidado';
  sCaptionConsolidado_ESES = 'Consolidated';

  sCaptionDesafixarLinha_PTBR = 'Desafixar Linha';
  sCaptionDesafixarLinha_ENUS = 'Unpin line';
  sCaptionDesafixarLinha_ESES = 'Desafijo Línea';

  sCaptionEmpresa_PTBR = 'Empresa';
  sCaptionEmpresa_ENUS = 'Company';
  sCaptionEmpresa_ESES = 'Empresa';

  sCaptionExpandir_PTBR = 'Expandir';
  sCaptionExpandir_ENUS = 'Expand';
  sCaptionExpandir_ESES = 'Expandir';

  sCaptionExportacao_PTBR = 'Exportação';
  sCaptionExportacao_ENUS = 'Export';
  sCaptionExportacao_ESES = 'Exportaciones';

  sCaptionFixarLinhaAbaixo_PTBR = 'Fixar Linha Abaixo';
  sCaptionFixarLinhaAbaixo_ENUS = 'Pin Down Line Down';
  sCaptionFixarLinhaAbaixo_ESES = 'Fijar Línea Abajo';

  sCaptionFixarLinhaTopo_PTBR = 'Fixar Linha ao Topo';
  sCaptionFixarLinhaTopo_ENUS = 'Pin to Top';
  sCaptionFixarLinhaTopo_ESES = 'Fijar Línea Arriba';

  sCaptionGeral_PTBR = 'Geral';
  sCaptionGeral_ENUS = 'General';
  sCaptionGeral_ESES = 'General';

  sCaptionIniciando_PTBR = 'Iniciando...';
  sCaptionIniciando_ENUS = 'Starting...';
  sCaptionIniciando_ESES = 'Comenzando...';

  sCaptionGerenciarVisoesGrade_PTBR = 'Gerenciar Visões da Grade';
  sCaptionGerenciarVisoesGrade_ENUS = 'Manage Grid Views';
  sCaptionGerenciarVisoesGrade_ESES = 'Administrar Las Vistas de La Cuadrícula';

  sCaptionImprimirFormulario_PTBR = 'Imprimir Formulário';
  sCaptionImprimirFormulario_ENUS = 'Print Form';
  sCaptionImprimirFormulario_ESES = 'Imprimir Formulario';

  sCaptionImportar_PTBR = 'Importar';
  sCaptionImportar_ENUS = 'Import';
  sCaptionImportar_ESES = 'Importar';

  sCaptionImportandoItem_PTBR = 'Importando Item: %s de %s.';
  sCaptionImportandoItem_ENUS = 'Importing Item. %s out of %s';
  sCaptionImportandoItem_ESES = 'Importar artículo: %s de %s';

  sCaptionLancementoContabil_PTBR = 'Lançamento Contábil';
  sCaptionLancementoContabil_ENUS = 'Accounting Entry';
  sCaptionLancementoContabil_ESES = 'Asiento Contable';

  sCaptionLoginInformeSeuCodgioEntidade_PTBR = '   Informe Seu Código De Entidade';
  sCaptionLoginInformeSeuCodgioEntidade_ENUS = '   Enter Your Entity Code';
  sCaptionLoginInformeSeuCodgioEntidade_ESES ='   Ingrese su código de entidad';

  sCaptionLoginInformeSeuUsuarioAcesso_PTBR = '   Informe seu usuário de acesso';
  sCaptionLoginInformeSeuUsuarioAcesso_ENUS = '   Inform Your Login User';
  sCaptionLoginInformeSeuUsuarioAcesso_ESES ='   Informe a Su Usuario de Inicio de Sesión';

  sCaptionLoginInformeSuaSenha_PTBR = '   Informe sua senha';
  sCaptionLoginInformeSuaSenha_ENUS = '   Inform Your Password';
  sCaptionLoginInformeSuaSenha_ESES = '   Informar su contraseña';

  sCaptionMatrizFilial_PTBR = 'Matriz e Filial';
  sCaptionMatrizFilial_ENUS = 'Matrix and Branch';
  sCaptionMatrizFilial_ESES = 'Matriz y Filial';

  sCaptionNomePasta_PTBR = 'Nome da Pasta';
  sCaptionNomePasta_ENUS = 'Folder Name';
  sCaptionNomePasta_ESES = 'Nombre de carpeta';

  sCaptionNovaPasta_PTBR = 'Nova Pasta';
  sCaptionNovaPasta_ENUS = 'New Folder';
  sCaptionNovaPasta_ESES = 'Nueva pasta';

  sCaptionNovoArquivo_PTBR = 'Novo Arquivo';
  sCaptionNovoArquivo_ENUS = 'New File';
  sCaptionNovoArquivo_ESES = 'Archivo Nuevo';

  sCaptionPersonalizar_PTBR = 'Personalizar';
  sCaptionPersonalizar_ENUS = 'Personalize';
  sCaptionPersonalizar_ESES = 'Personalizar';

  sCaptionPlanoContabil_PTBR = 'Plano Contábil';
  sCaptionPlanoContabil_ENUS = 'Accounting Plan';
  sCaptionPlanoContabil_ESES = 'Plan Contable';

  sCaptionPlanoGerencial_PTBR = 'Plano Gerencial';
  sCaptionPlanoGerencial_ENUS = 'Management Plan';
  sCaptionPlanoGerencial_ESES = 'Gestión del Plan';

  sCaptionRecolher_PTBR = 'Recolher';
  sCaptionRecolher_ENUS = 'Collapse';
  sCaptionRecolher_ESES = 'Para Recolher';

  sCaptionSalvarArquivo_PTBR = 'Salvar Arquivo';
  sCaptionSalvarArquivo_ENUS = 'Save File';
  sCaptionSalvarArquivo_ESES = 'Guardar Archivo';

  sCaptionSalvarVisaoGrade_PTBR = 'Salvar Visão da Grade';
  sCaptionSalvarVisaoGrade_ENUS = 'Save Grade View';
  sCaptionSalvarVisaoGrade_ESES = 'Guardar La Vista de La Cuadrícula';

  sCaptionSessao_PTBR = 'Sessão';
  sCaptionSessao_ENUS = 'Session';
  sCaptionSessao_ESES = 'Sesión';

  sCaptionTransacaoContabil_PTBR = 'Transação Contábil';
  sCaptionTransacaoContabil_ENUS = 'Accounting Transaction';
  sCaptionTransacaoContabil_ESES = 'Transacción Contable';

  sCaptionVisualizarDANFE_PTBR = 'Visualizar DANFE';
  sCaptionVisualizarDANFE_ENUS = 'View DANFE';
  sCaptionVisualizarDANFE_ESES = 'Ver DANFE';

  sCaptionVisualizarDocumento_PTBR = 'Visualizar Documento';
  sCaptionVisualizarDocumento_ENUS = 'View Document';
  sCaptionVisualizarDocumento_ESES = 'Ver Documento';

  sCaptionVisualizarDocumentoFiscal_PTBR = 'Visualizar Documento Fiscal';
  sCaptionVisualizarDocumentoFiscal_ENUS = 'View Tax Document';
  sCaptionVisualizarDocumentoFiscal_ESES = 'Ver Documento Fiscal';

  sCaptionCopiarAreaTransferencia_PTBR = 'Copiar para Área de Transferência';
  sCaptionCopiarAreaTransferencia_ENUS = 'Copy to Clipboard';
  sCaptionCopiarAreaTransferencia_ESES = 'Copiar al Portapapeles';

  sCaptionConsultarLOG_PTBR = 'Consultar LOG';
  sCaptionConsultarLOG_ENUS = 'Consult LOG';
  sCaptionConsultarLOG_ESES = 'Consultar LOG';

  //Hint
  sHintCancelar_PTBR = 'Cancelar';
  sHintCancelar_ENUS = 'Cancel';
  sHintCancelar_ESES = 'Cancelar';

  sHintExcluirEvento_PTBR = 'Excluir evento';
  sHintExcluirEvento_ENUS = 'Delete event';
  sHintExcluirEvento_ESES = 'Eliminar evento';

  sHintImprimirProposta_PTBR = 'Imprimir proposta comercial';
  sHintImprimirProposta_ENUS = 'Print business proposal';
  sHintImprimirProposta_ESES = 'Imprimir propuesta comercial';

  sHintRecorrenciaEvento_PTBR = 'Recorrência do evento';
  sHintRecorrenciaEvento_ENUS = 'Recurrence event';
  sHintRecorrenciaEvento_ESES = 'Recurrencia de evento';

  sHintSalvarEvento_PTBR = 'Salvar evento';
  sHintSalvarEvento_ENUS = 'Save event';
  sHintSalvarEvento_ESES = 'Guardar evento';

  //Msg

  sMsgArquivoSalvoEmDesejaVisualizar_PTBR = 'Arquivo salvo em %s. Deseja visualizar?';
  sMsgArquivoSalvoEmDesejaVisualizar_ENUS = 'File saved in %s. Do you want to view?';
  sMsgArquivoSalvoEmDesejaVisualizar_ESES = 'Archivo guardado en %s. Desea ver?';

  sMsgArquivoRelatorioNaoDefinido_PTBR = 'Arquivo de relatório não definido.';
  sMsgArquivoRelatorioNaoDefinido_ENUS = 'Report file not set.';
  sMsgArquivoRelatorioNaoDefinido_ESES = 'Archivo de informe no definido.';

  sMsgArquivoRelatorioNaoEncontradoEm_PTBR = 'Arquivo de relatório não encontrado em "%s"';
  sMsgArquivoRelatorioNaoEncontradoEm_ENUS = 'Report file not found in "%s"';
  sMsgArquivoRelatorioNaoEncontradoEm_ESES = 'Archivo de informe no encontrado en "%s"';

  sMsgClasseRelatorioNaoEncontradaOuNaoDefinida_PTBR = 'Classe do relatório não encontrada ou não definida.';
  sMsgClasseRelatorioNaoEncontradaOuNaoDefinida_ENUS = 'Report class not found or not defined.';
  sMsgClasseRelatorioNaoEncontradaOuNaoDefinida_ESES = 'Clase de informe no encontrada o no definida.';

  sMsgConfirmaExclusaoTodosArquivosAtencao_PTBR = 'Confirma a exclusão de todos os arquivos?' + sLineBreak +
    'ATENÇÃO, ao confirmar a exclusão, os arquivos não poderão ser recuperados.';

  sMsgConfirmaExclusaoTodosArquivosAtencao_ENUS = 'Do you confirm the deletion of all files?' + sLineBreak +
    'WARNING, when confirming the deletion, the files can not be recovered.';

  sMsgConfirmaExclusaoTodosArquivosAtencao_ESES = 'Confirma la eliminación de todos los archivos?' + sLineBreak +
    'ATENCIÓN, al confirmar la eliminación, los archivos no se pueden recuperar.';

  sMsgDataInvalida_PTBR = 'Data inválida.';
  sMsgDataInvalida_ENUS = 'Invalid date.';
  sMsgDataInvalida_ESES = 'Fecha no válida.';

  sMsgDiretorioOrigemDestinoDevemSerDiferentes_PTBR = 'Diretório de origem e destino devem ser diferentes.';
  sMsgDiretorioOrigemDestinoDevemSerDiferentes_ENUS = 'The source and destination directory must be different.';
  sMsgDiretorioOrigemDestinoDevemSerDiferentes_ESES = 'El directorio de origen y destino deben ser diferentes.';

  sMsgEmpresasDiferenteDivergenciaValores_PTBR = 'Existem empresas com %s diferente, isto poderá gerar divergências de valores. Deseja continuar?';
  sMsgEmpresasDiferenteDivergenciaValores_ENUS = 'There are companies with %s different, this may lead to divergences of values. Do you wish to continue?';
  sMsgEmpresasDiferenteDivergenciaValores_ESES = 'Hay empresas con diferentes s%, esto puede generar valores de diferencias. Continuar?';

  sMsgEntreEmContatoComAcomSistemas_PTBR = 'Entre em contato com ACOM Sistemas.';
  sMsgEntreEmContatoComAcomSistemas_ENUS = 'Contact ACOM Sistemas.';
  sMsgEntreEmContatoComAcomSistemas_ESES = 'Póngase en contacto con ACOM Sistemas.';

  sMsgConsolidacaoNaoPermitida_PTBR = 'Existem empresas com %s diferente. Consolidação não permitida.';
  sMsgConsolidacaoNaoPermitida_ENUS = 'There are companies with %s different. Consolidation not allowed.';
  sMsgConsolidacaoNaoPermitida_ESES = 'Hay empresas con diferentes s%. Consolidación no permitida.';

  sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz_PTBR = 'É preciso selecionar ao menos uma empresa matriz.';
  sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz_ENUS = 'You must select at least one parent company.';
  sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz_ESES = 'Debe seleccionar al menos una matriz.';

  sMsgErroAoConsultarBaseDadosLOGAtravesAPI_PTBR = 'Erro ao consultar a base de dados de LOG através da API.';
  sMsgErroAoConsultarBaseDadosLOGAtravesAPI_ENUS = 'Error querying the LOG database through the API.';
  sMsgErroAoConsultarBaseDadosLOGAtravesAPI_ESES = 'Error al consultar la base de datos LOG a través de la API.';

  sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar_PTBR = 'Existe uma nova versão do sistema EVEREST. Deseja atualizar?';
  sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar_ENUS = 'There is a new version of the EVEREST system. Do you want to upgrade?';
  sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar_ESES = 'Hay una nueva versión del sistema EVEREST. Desea actualizar?';

  sMsgIntervaloFaixaValoresIncorreto_PTBR = 'Intervalo de faixa de valores incorreto. Valor mínimo: %s. Valor máximo: %s.';
  sMsgIntervaloFaixaValoresIncorreto_ENUS = 'Incorrect range of values. Minimum value:% s. Maximum value: %s.';
  sMsgIntervaloFaixaValoresIncorreto_ESES = 'Intervalo de valores incorrecto. Valor mínimo:% s. Valor máximo: %s.';

  sMsgMemoriaInsuficiente_PTBR = 'Memória insuficiente.';
  sMsgMemoriaInsuficiente_ENUS = 'Insufficient memory.';
  sMsgMemoriaInsuficiente_ESES = 'Memoria insuficiente.';

  sMsgNaoExisteDocumentoFiscalVinculadoLancamento_PTBR = 'Não existe um documento fiscal vinculado ao lançamento selecionado.';
  sMsgNaoExisteDocumentoFiscalVinculadoLancamento_ENUS = 'There is no fiscal document linked to the selected record.';
  sMsgNaoExisteDocumentoFiscalVinculadoLancamento_ESES = 'No hay documento fiscal vinculado al lanzamiento seleccionado.';

  sMsgNaoFoiPossivelCopiarArquivo_PTBR = 'Não foi possível copiar o arquivo %s.';
  sMsgNaoFoiPossivelCopiarArquivo_ENUS = 'Could not copy file %s.';
  sMsgNaoFoiPossivelCopiarArquivo_ESES = 'No se pudo copiar el archivo %s.';

  sMsgNaoFoiPossivelCriarNovaPasta_PTBR = 'Não foi possível criar a nova pasta.';
  sMsgNaoFoiPossivelCriarNovaPasta_ENUS = 'The new folder could not be created.';
  sMsgNaoFoiPossivelCriarNovaPasta_ESES = 'No se pudo crear la nueva carpeta.';

  sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema_PTBR = 'Não foi possível criar o diretório "%s". Entre em contato com o ' +
    'administrador do sistema.';

  sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema_ENUS = 'Could not create directory "%s". Contact your system administrator.';

  sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema_ESES = 'No se pudo crear el directorio "%s". Póngase en contacto con el ' +
    'administrador de su sistema.';

  sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes_PTBR = 'Não foi possível executar esta operação. Tente novamente mais tarde.' +
    sLineBreak + 'Detalhes: %s';

  sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes_ENUS = 'This operation could not be performed. Try again later.' +
    sLineBreak + 'Details: %s';

  sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes_ESES = 'Esta operación no se pudo realizar. Inténtelo de nuevo más tarde.' +
    sLineBreak + 'Detalles: %s';

  sMsgNaoFoiPossivelReestabelecerConexaoBD_PTBR = 'Não foi possível restabelecer a conexão com o servidor de banco de dados.' + sLineBreak +
    sLineBreak + 'A aplicação deve ser encerrada.';

  sMsgNaoFoiPossivelReestabelecerConexaoBD_ENUS = 'Could not reestablish connection to database server.' + sLineBreak + sLineBreak +
    'The application should be terminated.';

  sMsgNaoFoiPossivelReestabelecerConexaoBD_ESES = 'No se pudo restablecer la conexión con el servidor de base de datos.' + sLineBreak + sLineBreak +
    'La aplicación debe ser terminada.';

  sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar_PTBR = 'O arquivo %s foi salvo na sua pasta de arquivos. Deseja visualizar a pasta?';
  sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar_ENUS = 'The file %s has been saved to your files folder. Do you want to view the folder?';
  sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar_ESES = 'El archivo %s se guardó en la carpeta de archivos. Desea ver la carpeta?';

  sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres_PTBR = 'O código de entidade deve ter no mínimo 7 caracteres.';
  sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres_ENUS = 'The entity code must be at least 7 characters long.';
  sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres_ESES ='El código de entidad debe tener al menos 7 caracteres.';

  sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir_PTBR = 'O destino já possui um arquivo chamado %s. Deseja substituir?';
  sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir_ENUS = 'The destination already has a file named %s. Do you want to replace?';
  sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir_ESES = 'El destino ya tiene un archivo llamado %s. Desea reemplazar?';

  sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo_PTBR = 'O limite para copiar é de 2.000 registros. Deseja exportar para arquivo?';
  sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo_ENUS = 'The limit for copying is 2.000 records. Do you want to export to file?';
  sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo_ESES = 'El límite para copiar es de 2,000 registros. Quieres exportar a archivo?';

  sMsgReconectandoServidorBD_PTBR = 'Reconectando ao servidor de banco de dados. Aguarde...';
  sMsgReconectandoServidorBD_ENUS = 'Reconnecting to the database server. Wait...';
  sMsgReconectandoServidorBD_ESES = 'Volver a conectar con el servidor de base de datos. Espere...';

  sMsgSelecioneUmArquivoParaImportacao_PTBR = 'Selecione um arquivo para importação.';
  sMsgSelecioneUmArquivoParaImportacao_ENUS = 'Select a file to import.';
  sMsgSelecioneUmArquivoParaImportacao_ESES = 'Seleccione un archivo para importar.';

  sMsgUsuarioJaLogadoSistemaHostSessao_PTBR = 'Usuário %s já está logado no sistema no host %s, sessão %d.';
  sMsgUsuarioJaLogadoSistemaHostSessao_ENUS = 'User %s is already logged in the system at host %s, session %d.';
  sMsgUsuarioJaLogadoSistemaHostSessao_ESES = 'El usuario %s ya está registrado en el sistema en host %s, sesión %d.';

resourcestring
  // TacBotoesCadastro
  sBtCaptionGravar = sBtCaptionGravar_PTBR;
  sBtCaptionExcluir = sBtCaptionExcluir_PTBR;
  sBtCaptionCancelar = sBtCaptionCancelar_PTBR;
  sBtCaptionDuplicar = sBtCaptionDuplicar_PTBR;
  sBtCaptionEnviarPorEmail = sBtCaptionEnviarPorEmail_PTBR;
  sBtCaptionSituacao = sBtCaptionSituacao_PTBR;
  sBtCaptionNovo = sBtCaptionNovo_PTBR;
  sBtCaptionConsultar = sBtCaptionConsultar_PTBR;
  sBtCaptionLimpar = sBtCaptionLimpar_PTBR;
  sBtCaptionPrimeiro = sBtCaptionPrimeiro_PTBR;
  sBtCaptionAnterior = sBtCaptionAnterior_PTBR;
  sBtCaptionProximo = sBtCaptionProximo_PTBR;
  sBtCaptionUltimo = sBtCaptionUltimo_PTBR;
  sBtCaptionSelecionar = sBtCaptionSelecionar_PTBR;
  sBtCaptionImprimir = sBtCaptionImprimir_PTBR;
  sBtCaptionExportarParaArquivo = sBtCaptionExportarParaArquivo_PTBR;
  sBtCaptionExtras = sBtCaptionExtras_PTBR;
  sBtCaptionSair = sBtCaptionSair_PTBR;
  sBtCaptionAjuda = sBtCaptionAjuda_PTBR;
  sBtHintSituacao = sBtHintSituacao_PTBR;
  // -- Fim TacBotoesCadastro

  // TacPeriodo
  sPeriodoCaption60UltimosDias = '60 ÚLTIMOS DIAS';
  sPeriodoCaption45UltimosDias = '45 ÚLTIMOS DIAS';
  sPeriodoCaption30UltimosDias = '30 ÚLTIMOS DIAS';
  sPeriodoCaption15UltimosDias = '15 ÚLTIMOS DIAS';
  sPeriodoCaption7UltimosDias = '7 ÚLTIMOS DIAS';
  sPeriodoCaption3UltimosDias = '3 ÚLTIMOS DIAS';
  sPeriodoCaptionMesAnterior = 'MÊS ANTERIOR';
  sPeriodoCaptionPeriodo = 'PERÍODO';
  sPeriodoCaptionMesAtual = 'MÊS ATUAL';
  sPeriodoCaption3ProximosDias = '3 PRÓXIMOS DIAS';
  sPeriodoCaption7ProximosDias = '7 PRÓXIMOS DIAS';
  sPeriodoCaption15ProximosDias = '15 PRÓXIMOS DIAS';
  sPeriodoCaption30ProximosDias = '30 PRÓXIMOS DIAS';
  sPeriodoCaption45ProximosDias = '45 PRÓXIMOS DIAS';
  sPeriodoCaption60ProximosDias = '60 PRÓXIMOS DIAS';
  // -- Fim TacPeriodo

  // Captions
  sBtCaptionEnviar = '&Enviar';
  sBtCaptionVoltar = '&Voltar';
  sCaptionAguardeSincronizandoDados = 'Aguarde, sincronizando dados...';
  sCaptionArquivos = 'arquivos';
  sCaptionAreaTransferencia = 'Área de Transferência';
  sCaptionCarregarVisaoGrade = sCaptionCarregarVisaoGrade_PTBR;
  sCaptionCentroCusto = sCaptionCentroCusto_PTBR;
  sCaptionConsolidacao = sCaptionConsolidacao_PTBR;
  sCaptionConsolidado = sCaptionConsolidado_PTBR;
  sCaptionConsultarLOG = sCaptionConsultarLOG_PTBR;
  sCaptionCopiarAreaTransferencia = sCaptionCopiarAreaTransferencia_PTBR;
  sCaptionDataFinal = 'Data Final';
  sCaptionDataInicial = 'Data Inicial';
  sCaptionDesafixarLinha = sCaptionDesafixarLinha_PTBR;
  sCaptionEmpresa = sCaptionEmpresa_PTBR;
  sCaptionEnviandoLembreteSenha = 'Enviando lembrete de senha...';
  sCaptionEsqueciMinhaSenha = 'Esqueci minha senha';
  sCaptionExpandir = sCaptionExpandir_PTBR;
  sCaptionExportacao = sCaptionExportacao_PTBR;
  sCaptionExportarParaArquivo = 'Exportar para arquivo';
  sCaptionFixarLinhaAbaixo = sCaptionFixarLinhaAbaixo_PTBR;
  sCaptionFixarLinhaTopo = sCaptionFixarLinhaTopo_PTBR;
  sCaptionGeral = sCaptionGeral_PTBR;
  sCaptionGerenciarVisoesGrade = sCaptionGerenciarVisoesGrade_PTBR;
  sCaptionIdentificacaoUsuario = 'Identificação do Usuário';
  sCaptionIniciando = sCaptionIniciando_PTBR;
  sCaptionImprimirFormulario = sCaptionImprimirFormulario_PTBR;
  sCaptionImagem = 'Imagem';
  sCaptionImportar = sCaptionImportar_PTBR;
  sCaptionImportandoItem = sCaptionImportandoItem_PTBR;
  sCaptionImprimir = 'Imprimir';
  sCaptionInformeSeuLoginEmail = 'Informe seu LOGIN ou E-MAIL ou CPF/CNPJ';
  sCaptionLancementoContabil = sCaptionLancementoContabil_PTBR;
  sCaptionLembrarSuaSenha = 'Lembrar Sua Senha';
  sCaptionLoginInformeSeuCodgioEntidade = sCaptionLoginInformeSeuCodgioEntidade_PTBR;
  sCaptionLoginInformeSeuUsuarioAcesso = sCaptionLoginInformeSeuUsuarioAcesso_PTBR;
  sCaptionLoginInformeSuaSenha = sCaptionLoginInformeSuaSenha_PTBR;
  sCaptionMatrizFilial = sCaptionMatrizFilial_PTBR;
  sCaptionNao = 'Não';
  sCaptionNomePasta = sCaptionNomePasta_PTBR;
  sCaptionNovaPasta = sCaptionNovaPasta_PTBR;
  sCaptionNovoArquivo = sCaptionNovoArquivo_PTBR;
  sCaptionPersonalizar = sCaptionPersonalizar_PTBR;
  sCaptionPlanoContabil = sCaptionPlanoContabil_PTBR;
  sCaptionPlanoGerencial = sCaptionPlanoGerencial_PTBR;
  sCaptionRecolher = sCaptionRecolher_PTBR;
  sCaptionRestaurarConfigPadraoGrid = 'Restaurar Configuração Padrão da Grade';
  sCaptionSalvarArquivo = sCaptionSalvarArquivo_PTBR;
  sCaptionSalvarPreferenciasGrid = 'Salvar Preferências da Grade';
  sCaptionSalvarVisaoGrade = sCaptionSalvarVisaoGrade_PTBR;
  sCaptionSelecionarTodos = 'Selecionar Todos';
  sCaptionSenha = 'Senha';
  sCaptionSessao = sCaptionSessao_PTBR;
  sCaptionSim = 'Sim';
  sCaptionTodosOsArquivos = 'Todos os arquivos';
  sCaptionUnidadeNegocio = 'Unidade de Negócio';
  sCaptionUsuario = 'Usuário';
  sCaptionTransacaoContabil = sCaptionTransacaoContabil_PTBR;
  sCaptionVerificandoAtualizacaoSistema = 'Verificando atualização do sistema.';
  sCaptionVisualizarDANFE = sCaptionVisualizarDANFE_PTBR;
  sCaptionVisualizarDocumento = sCaptionVisualizarDocumento_PTBR;
  sCaptionVisualizarDocumentoFiscal = sCaptionVisualizarDocumentoFiscal_PTBR;

  //Hints
  sHintCancelar = sHintCancelar_PTBR;
  sHintExcluirEvento = sHintExcluirEvento_PTBR;
  sHintImprimirProposta = sHintImprimirProposta_PTBR;
  sHintRecorrenciaEvento = sHintRecorrenciaEvento_PTBR;
  sHintSalvarEvento = sHintSalvarEvento_PTBR;

  // Mensagens
  sMsgArquivoSalvoEmDesejaVisualizar = sMsgArquivoSalvoEmDesejaVisualizar_PTBR;
  sMsgArquivoRelatorioNaoDefinido = sMsgArquivoRelatorioNaoDefinido_PTBR;
  sMsgArquivoRelatorioNaoEncontradoEm = sMsgArquivoRelatorioNaoEncontradoEm_PTBR;
  sMsgCancelarGeracaoArquivo = 'Cancelar a geração do arquivo?';
  sMsgClasseRelatorioNaoEncontradaOuNaoDefinida = sMsgClasseRelatorioNaoEncontradaOuNaoDefinida_PTBR;
  sMsgConfirmarCancelamento = 'Confirmar cancelamento?';
  sMsgConfirmarExclusao = 'Confirmar exclusão?';
  sMsgConfirmaExclusaoTodosArquivosAtencao = sMsgConfirmaExclusaoTodosArquivosAtencao_PTBR;
  sMsgConfirmarGravacao = 'Confirmar gravação?';
  sMsgDataInvalida = sMsgDataInvalida_PTBR;
  sMsgDesejaVisualizarArquivo = 'Deseja visualizar o arquivo?';
  sMsgDeveSerInformada = '%s deve ser informada.';
  sMsgDeveSerMaiorQue = '%s deve ser maior que %s.';
  sMsgDiretorioOrigemDestinoDevemSerDiferentes = sMsgDiretorioOrigemDestinoDevemSerDiferentes_PTBR;
  sMsgEmpresaNaoPossuiFiliais = 'Empresa não possui filiais.';
  sMsgEmpresaNaoTemColigada = 'Empresa não tem coligada.';
  sMsgEmpresasDiferenteDivergenciaValores = sMsgEmpresasDiferenteDivergenciaValores_PTBR;
  sMsgEntreEmContatoComAcomSistemas = sMsgEntreEmContatoComAcomSistemas_PTBR;
  sMsgConsolidacaoNaoPermitida = sMsgConsolidacaoNaoPermitida_PTBR;
  sMsgEPrecisoSelecionarPeloMenosUmaConta = 'É preciso selecionar pelo menos uma conta.';
  sMsgEPrecisoSelecionarPeloMenosUmDeposito = 'É preciso selecionar pelo menos um depósito.';
  sMsgEPrecisoSelecionarPeloMenosUmaEmpresa = 'É preciso selecionar pelo menos uma empresa.';
  sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz = sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz_PTBR;
  sMsgErroAoConsultarBaseDadosLOGAtravesAPI = sMsgErroAoConsultarBaseDadosLOGAtravesAPI_PTBR;
  sMsgExistemCamposQueDevemSerPreenchidos = 'Existem campos que devem ser preenchidos.';
  sMsgExistemCamposDoQueDevemSerPreenchidos = 'Existem campos do(a) %s que devem ser preenchidos.';
  sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar = sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar_PTBR;
  sMsgIntervaloFaixaValoresIncorreto = sMsgIntervaloFaixaValoresIncorreto_PTBR;
  sMsgMemoriaInsuficiente = sMsgMemoriaInsuficiente_PTBR;
  sMsgNaoExisteDocumentoFiscalVinculadoLancamento = sMsgNaoExisteDocumentoFiscalVinculadoLancamento_PTBR;
  sMsgNaoFoiPossivelCopiarArquivo = sMsgNaoFoiPossivelCopiarArquivo_PTBR;
  sMsgNaoFoiPossivelCriarArquivo = 'Não foi possível criar o arquivo';
  sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema = sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema_PTBR;
  sMsgNaoFoiPossivelCriarNovaPasta = sMsgNaoFoiPossivelCriarNovaPasta_PTBR;
  sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes = sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes_PTBR;
  sMsgNaoFoiPossivelReestabelecerConexaoBD = sMsgNaoFoiPossivelReestabelecerConexaoBD_PTBR;
  sMsgNenhumaEmpresaParaUnidadeNegocio = 'Nenhuma empresa para a unidade de negócio.';
  sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar = sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar_PTBR;
  sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres = sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres_PTBR;
  sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir = sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir_PTBR;
  sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo = sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo_PTBR;
  sMsgReconectandoServidorBD = sMsgReconectandoServidorBD_PTBR;
  sMsgSelecioneUmArquivoParaImportacao = sMsgSelecioneUmArquivoParaImportacao_PTBR;
  sMsgUsuarioJaLogadoSistemaHostSessao = sMsgUsuarioJaLogadoSistemaHostSessao_PTBR;

type
  TCodigoIdioma = (ciPtBR, ciEnUS, ciEsEs);

  TTraducao = class(TPersistent)
  private
    class var FIdioma: TCodigoIdioma;
    class procedure DefinirResourceStringDelphi;
    class procedure DefinirResourceStringDelphiMensagem;
    class procedure DefinirResourceStringCaption;
    class procedure DefinirResourceStringHint;
    class procedure DefinirResourceStringMensagem;
    class function PegarTextoTraduzido(const psTextoPTBR, psTextoENUS, psTextoESES: String): String;
    class function PegarTextoTraduzidoPWideChar(const psTextoPTBR, psTextoENUS, psTextoESES: String): PWideChar;
    class procedure SetResourceString(pResourceString: PResStringRec; pcNovoResourceString: PChar);
  public
    class procedure InicializarClassVars;
    class procedure Traduzir(const pIdioma: TCodigoIdioma = ciPtBR); overload;
    class procedure Traduzir(const psIdioma: String); overload;
  public // Captions
    class function PegarCaptionCadastrarVisualizarDocumento: String;
  public // Captions Botão Cadastro
    class function PegarCaptionBotaoGravar: String;
  public // Hints
    class function PegarHintLinkCopiado: String;
  end;

implementation

{ TTraducao }

class procedure TTraducao.Traduzir(const pIdioma: TCodigoIdioma = ciPtBR);
begin
  FIdioma := pIdioma;
  DefinirResourceStringDelphi;
  DefinirResourceStringCaption;
  DefinirResourceStringHint;
  DefinirResourceStringMensagem;

  if pIdioma = ciPtBR then
  begin
    // TacBotoesCadastro
    SetResourceString(@sBtCaptionGravar, sBtCaptionGravar_PTBR);
    SetResourceString(@sBtCaptionExcluir, sBtCaptionExcluir_PTBR);
    SetResourceString(@sBtCaptionCancelar, sBtCaptionCancelar_PTBR);
    SetResourceString(@sBtCaptionSituacao, sBtCaptionSituacao_PTBR);
    SetResourceString(@sBtCaptionDuplicar, sBtCaptionDuplicar_PTBR);
    SetResourceString(@sBtCaptionEnviarPorEmail, sBtCaptionEnviarPorEmail_PTBR);
    SetResourceString(@sBtCaptionNovo, sBtCaptionNovo_PTBR);
    SetResourceString(@sBtCaptionConsultar, sBtCaptionConsultar_PTBR);
    SetResourceString(@sBtCaptionLimpar, sBtCaptionLimpar_PTBR);
    SetResourceString(@sBtCaptionPrimeiro, sBtCaptionPrimeiro_PTBR);
    SetResourceString(@sBtCaptionAnterior, sBtCaptionAnterior_PTBR);
    SetResourceString(@sBtCaptionProximo, sBtCaptionProximo_PTBR);
    SetResourceString(@sBtCaptionUltimo, sBtCaptionUltimo_PTBR);
    SetResourceString(@sBtCaptionSelecionar, sBtCaptionSelecionar_PTBR);
    SetResourceString(@sBtCaptionImprimir, sBtCaptionImprimir_PTBR);
    SetResourceString(@sBtCaptionExportarParaArquivo, sBtCaptionExportarParaArquivo_PTBR);
    SetResourceString(@sBtCaptionExtras, sBtCaptionExtras_PTBR);
    SetResourceString(@sBtCaptionSair, sBtCaptionSair_PTBR);
    SetResourceString(@sBtCaptionAjuda, sBtCaptionAjuda_PTBR);
    SetResourceString(@sBtHintSituacao, sBtHintSituacao_PTBR);
    // -- Fim TacBotoesCadastro

    // Captions
    SetResourceString(@sCaptionCarregarVisaoGrade, sCaptionCarregarVisaoGrade_PTBR);
    SetResourceString(@sCaptionCentroCusto, sCaptionCentroCusto_PTBR);
    SetResourceString(@sCaptionConsolidacao, sCaptionConsolidacao_PTBR);
    SetResourceString(@sCaptionConsolidado, sCaptionConsolidado_PTBR);
    SetResourceString(@sCaptionConsultarLOG, sCaptionConsultarLOG_PTBR);
    SetResourceString(@sCaptionCopiarAreaTransferencia, sCaptionCopiarAreaTransferencia_PTBR);
    SetResourceString(@sCaptionDesafixarLinha, sCaptionDesafixarLinha_PTBR);
    SetResourceString(@sCaptionEmpresa, sCaptionEmpresa_PTBR);
    SetResourceString(@sCaptionExpandir, sCaptionExpandir_PTBR);
    SetResourceString(@sCaptionExportacao, sCaptionExportacao_PTBR);
    SetResourceString(@sCaptionFixarLinhaAbaixo, sCaptionFixarLinhaAbaixo_PTBR);
    SetResourceString(@sCaptionFixarLinhaTopo, sCaptionFixarLinhaTopo_PTBR);
    SetResourceString(@sCaptionGeral, sCaptionGeral_PTBR);
    SetResourceString(@sCaptionGerenciarVisoesGrade, sCaptionGerenciarVisoesGrade_PTBR);
    SetResourceString(@sCaptionImportar, sCaptionImportar_PTBR);
    SetResourceString(@sCaptionImportandoItem, sCaptionImportandoItem_PTBR);
    SetResourceString(@sCaptionImprimirFormulario, sCaptionImprimirFormulario_PTBR);
    SetResourceString(@sCaptionIniciando, sCaptionIniciando_PTBR);
    SetResourceString(@sCaptionLancementoContabil, sCaptionLancementoContabil_PTBR);
    SetResourceString(@sCaptionLoginInformeSeuCodgioEntidade, sCaptionLoginInformeSeuCodgioEntidade_PTBR);
    SetResourceString(@sCaptionMatrizFilial, sCaptionMatrizFilial_PTBR);
    SetResourceString(@sCaptionNomePasta, sCaptionNomePasta_PTBR);
    SetResourceString(@sCaptionNovaPasta, sCaptionNovaPasta_PTBR);
    SetResourceString(@sCaptionNovoArquivo, sCaptionNovoArquivo_PTBR);
    SetResourceString(@sCaptionPlanoContabil, sCaptionPlanoContabil_PTBR);
    SetResourceString(@sCaptionPlanoGerencial, sCaptionPlanoGerencial_PTBR);
    SetResourceString(@sCaptionRecolher, sCaptionRecolher_PTBR);
    SetResourceString(@sCaptionSalvarArquivo, sCaptionSalvarArquivo_PTBR);
    SetResourceString(@sCaptionSalvarVisaoGrade, sCaptionSalvarVisaoGrade_PTBR);
    SetResourceString(@sCaptionSessao, sCaptionSessao_PTBR);
    SetResourceString(@sCaptionTransacaoContabil, sCaptionTransacaoContabil_PTBR);
    SetResourceString(@sCaptionVisualizarDANFE, sCaptionVisualizarDANFE_PTBR);
    SetResourceString(@sCaptionVisualizarDocumento, sCaptionVisualizarDocumento_PTBR);
    SetResourceString(@sCaptionVisualizarDocumentoFiscal, sCaptionVisualizarDocumentoFiscal_PTBR);

    //Hints
    SetResourceString(@sHintCancelar, sHintCancelar_PTBR);
    SetResourceString(@sHintImprimirProposta, sHintImprimirProposta_PTBR);
    SetResourceString(@sHintExcluirEvento, sHintExcluirEvento_PTBR);
    SetResourceString(@sHintRecorrenciaEvento, sHintRecorrenciaEvento_PTBR);
    SetResourceString(@sHintSalvarEvento, sHintSalvarEvento_PTBR);

    // Mensagens
    SetResourceString(@sMsgArquivoSalvoEmDesejaVisualizar, sMsgArquivoSalvoEmDesejaVisualizar_PTBR);
    SetResourceString(@sMsgArquivoRelatorioNaoDefinido, sMsgArquivoRelatorioNaoDefinido_PTBR);
    SetResourceString(@sMsgArquivoRelatorioNaoEncontradoEm, sMsgArquivoRelatorioNaoEncontradoEm_PTBR);
    SetResourceString(@sMsgClasseRelatorioNaoEncontradaOuNaoDefinida, sMsgClasseRelatorioNaoEncontradaOuNaoDefinida_PTBR);
    SetResourceString(@sMsgConfirmaExclusaoTodosArquivosAtencao, sMsgConfirmaExclusaoTodosArquivosAtencao_PTBR);
    SetResourceString(@sMsgDataInvalida, sMsgDataInvalida_PTBR);
    SetResourceString(@sMsgDiretorioOrigemDestinoDevemSerDiferentes, sMsgDiretorioOrigemDestinoDevemSerDiferentes_PTBR);
    SetResourceString(@sMsgEmpresasDiferenteDivergenciaValores, sMsgEmpresasDiferenteDivergenciaValores_PTBR);
    SetResourceString(@sMsgEntreEmContatoComAcomSistemas, sMsgEntreEmContatoComAcomSistemas_PTBR);
    SetResourceString(@sMsgConsolidacaoNaoPermitida, sMsgConsolidacaoNaoPermitida_PTBR);
    SetResourceString(@sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz, sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz_PTBR);
    SetResourceString(@sMsgErroAoConsultarBaseDadosLOGAtravesAPI, sMsgErroAoConsultarBaseDadosLOGAtravesAPI_PTBR);
    SetResourceString(@sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar, sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar_PTBR);
    SetResourceString(@sMsgIntervaloFaixaValoresIncorreto, sMsgIntervaloFaixaValoresIncorreto_PTBR);
    SetResourceString(@sMsgMemoriaInsuficiente, sMsgMemoriaInsuficiente_PTBR);
    SetResourceString(@sMsgNaoExisteDocumentoFiscalVinculadoLancamento, sMsgNaoExisteDocumentoFiscalVinculadoLancamento_PTBR);
    SetResourceString(@sMsgNaoFoiPossivelCopiarArquivo, sMsgNaoFoiPossivelCopiarArquivo_PTBR);

    SetResourceString(@sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema,
      sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema_PTBR);

    SetResourceString(@sMsgNaoFoiPossivelCriarNovaPasta, sMsgNaoFoiPossivelCriarNovaPasta_PTBR);

    SetResourceString(@sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes,
      sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes_PTBR);

    SetResourceString(@sMsgNaoFoiPossivelReestabelecerConexaoBD, sMsgNaoFoiPossivelReestabelecerConexaoBD_PTBR);
    SetResourceString(@sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar, sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar_PTBR);
    SetResourceString(@sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres, sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres_PTBR);
    SetResourceString(@sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir, sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir_PTBR);
    SetResourceString(@sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo, sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo_PTBR);
    SetResourceString(@sMsgReconectandoServidorBD, sMsgReconectandoServidorBD_PTBR);
    SetResourceString(@sMsgSelecioneUmArquivoParaImportacao, sMsgSelecioneUmArquivoParaImportacao_PTBR);
    SetResourceString(@sMsgUsuarioJaLogadoSistemaHostSessao, sMsgUsuarioJaLogadoSistemaHostSessao_PTBR);

    // DevExpress
    {// Grid
    cxSetResourceString(@scxGridGroupByBoxCaption, 'Arraste a coluna aqui para agrupar');
    cxSetResourceString(@scxGridFilterRowInfoText, 'Clique aqui para definir um filtro');
    cxSetResourceString(@scxGridFindPanelInfoText,'Pesquisa...');
    cxSetResourceString(@scxGridFindPanelClearButtonCaption, '&Limpar');
    cxSetResourceString(@scxGridFindPanelFindButtonCaption , '&Procurar');}

    //NavBar
    cxSetResourceString(@sdxNavBarOffice11ShowMoreButtons, 'Exibir &Mais Botões');
    cxSetResourceString(@sdxNavBarOffice11ShowFewerButtons, 'Exibir &M&enos Botões');
    cxSetResourceString(@sdxNavBarOffice11AddRemoveButtons, '&Adicionar ou Remover Botões');
  end
  else
  if pIdioma = ciEnUS then
  begin
    // TacBotoesCadastro
    SetResourceString(@sBtCaptionGravar, sBtCaptionGravar_ENUS);
    SetResourceString(@sBtCaptionExcluir, sBtCaptionExcluir_ENUS);
    SetResourceString(@sBtCaptionCancelar, sBtCaptionCancelar_ENUS);
    SetResourceString(@sBtCaptionSituacao, sBtCaptionSituacao_ENUS);
    SetResourceString(@sBtCaptionDuplicar, sBtCaptionDuplicar_ENUS);
    SetResourceString(@sBtCaptionEnviarPorEmail, sBtCaptionEnviarPorEmail_ENUS);
    SetResourceString(@sBtCaptionNovo, sBtCaptionNovo_ENUS);
    SetResourceString(@sBtCaptionConsultar, sBtCaptionConsultar_ENUS);
    SetResourceString(@sBtCaptionLimpar, sBtCaptionLimpar_ENUS);
    SetResourceString(@sBtCaptionPrimeiro, sBtCaptionPrimeiro_ENUS);
    SetResourceString(@sBtCaptionAnterior, sBtCaptionAnterior_ENUS);
    SetResourceString(@sBtCaptionProximo, sBtCaptionProximo_ENUS);
    SetResourceString(@sBtCaptionUltimo, sBtCaptionUltimo_ENUS);
    SetResourceString(@sBtCaptionSelecionar, sBtCaptionSelecionar_ENUS);
    SetResourceString(@sBtCaptionImprimir, sBtCaptionImprimir_ENUS);
    SetResourceString(@sBtCaptionExportarParaArquivo, sBtCaptionExportarParaArquivo_ENUS);
    SetResourceString(@sBtCaptionExtras, sBtCaptionExtras_ENUS);
    SetResourceString(@sBtCaptionSair, sBtCaptionSair_ENUS);
    SetResourceString(@sBtCaptionAjuda, sBtCaptionAjuda_ENUS);
    SetResourceString(@sBtHintSituacao, sBtHintSituacao_ENUS);
    // -- Fim TacBotoesCadastro

    // TacPeriodo
    SetResourceString(@sPeriodoCaption3UltimosDias, '3 LAST DAYS');
    SetResourceString(@sPeriodoCaption7UltimosDias, '7 LAST DAYS');
    SetResourceString(@sPeriodoCaption15UltimosDias, '15 LAST DAYS');
    SetResourceString(@sPeriodoCaption30UltimosDias, '30 LAST DAYS');
    SetResourceString(@sPeriodoCaption45UltimosDias, '45 LAST DAYS');
    SetResourceString(@sPeriodoCaption60UltimosDias, '60 LAST DAYS');
    SetResourceString(@sPeriodoCaptionPeriodo, 'PERIOD');
    SetResourceString(@sPeriodoCaptionMesAtual, 'CURRENT MONTH');
    SetResourceString(@sPeriodoCaptionMesAnterior, 'LAST MONTH');
    // -- Fim TacPeriodo

    // Captions
    SetResourceString(@sBtCaptionEnviar, '&Send');
    SetResourceString(@sBtCaptionVoltar, '&Back');
    SetResourceString(@sCaptionCentroCusto, sCaptionCentroCusto_ENUS);
    SetResourceString(@sCaptionAguardeSincronizandoDados, 'Wait, synchronizing data...');
    SetResourceString(@sCaptionArquivos, 'files');
    SetResourceString(@sCaptionAreaTransferencia, 'Copy to Clipboard');
    SetResourceString(@sCaptionCarregarVisaoGrade, sCaptionCarregarVisaoGrade_ENUS);
    SetResourceString(@sCaptionConsolidacao, sCaptionConsolidacao_ENUS);
    SetResourceString(@sCaptionConsolidado, sCaptionConsolidado_ENUS);
    SetResourceString(@sCaptionConsultarLOG, sCaptionConsultarLOG_ENUS);
    SetResourceString(@sCaptionCopiarAreaTransferencia, sCaptionCopiarAreaTransferencia_ENUS);
    SetResourceString(@sCaptionDataFinal, 'Start Date');
    SetResourceString(@sCaptionDataInicial, 'End Date');
    SetResourceString(@sCaptionDesafixarLinha, sCaptionDesafixarLinha_ENUS);
    SetResourceString(@sCaptionEmpresa, sCaptionEmpresa_ENUS);
    SetResourceString(@sCaptionEnviandoLembreteSenha, 'Sending password reminder...');
    SetResourceString(@sCaptionEsqueciMinhaSenha, 'I forgot my password');
    SetResourceString(@sCaptionExpandir, sCaptionExpandir_ENUS);
    SetResourceString(@sCaptionExportarParaArquivo, 'Export to file');
    SetResourceString(@sCaptionExportacao, sCaptionExportacao_ENUS);
    SetResourceString(@sCaptionFixarLinhaAbaixo, sCaptionFixarLinhaAbaixo_ENUS);
    SetResourceString(@sCaptionFixarLinhaTopo, sCaptionFixarLinhaTopo_ENUS);
    SetResourceString(@sCaptionGeral, sCaptionGeral_ENUS);
    SetResourceString(@sCaptionGerenciarVisoesGrade, sCaptionGerenciarVisoesGrade_ENUS);
    SetResourceString(@sCaptionIdentificacaoUsuario, 'User Identification');
    SetResourceString(@sCaptionImagem, 'Image');
    SetResourceString(@sCaptionImportar, sCaptionImportar_ENUS);
    SetResourceString(@sCaptionImportandoItem, sCaptionImportandoItem_ENUS);
    SetResourceString(@sCaptionImprimir, 'Print');
    SetResourceString(@sCaptionImprimirFormulario, sCaptionImprimirFormulario_ENUS);
    SetResourceString(@sCaptionInformeSeuLoginEmail, 'Enter your LOGIN or E-MAIL');
    SetResourceString(@sCaptionIniciando, sCaptionIniciando_ENUS);
    SetResourceString(@sCaptionLancementoContabil, sCaptionLancementoContabil_ENUS);
    SetResourceString(@sCaptionLembrarSuaSenha, 'Remember Password');
    SetResourceString(@sCaptionLoginInformeSeuCodgioEntidade, sCaptionLoginInformeSeuCodgioEntidade_ENUS);
    SetResourceString(@sCaptionMatrizFilial, sCaptionMatrizFilial_ENUS);
    SetResourceString(@sCaptionNao, 'No');
    SetResourceString(@sCaptionNomePasta, sCaptionNomePasta_ENUS);
    SetResourceString(@sCaptionNovaPasta, sCaptionNovaPasta_ENUS);
    SetResourceString(@sCaptionNovoArquivo, sCaptionNovoArquivo_ENUS);
    SetResourceString(@sCaptionPlanoContabil, sCaptionPlanoContabil_ENUS);
    SetResourceString(@sCaptionPlanoGerencial, sCaptionPlanoGerencial_ENUS);
    SetResourceString(@sCaptionRecolher, sCaptionRecolher_ENUS);
    SetResourceString(@sCaptionRestaurarConfigPadraoGrid, 'Restore Default Grid Configuration');
    SetResourceString(@sCaptionSalvarPreferenciasGrid, 'Save Grid Preferences');
    SetResourceString(@sCaptionSalvarArquivo, sCaptionSalvarArquivo_ENUS);
    SetResourceString(@sCaptionSalvarVisaoGrade, sCaptionSalvarVisaoGrade_ENUS);
    SetResourceString(@sCaptionSelecionarTodos, 'Select All');
    SetResourceString(@sCaptionSenha, 'Password');
    SetResourceString(@sCaptionSessao, sCaptionSessao_ENUS);
    SetResourceString(@sCaptionSim, 'Yes');
    SetResourceString(@sCaptionTodosOsArquivos, 'All files');
    SetResourceString(@sCaptionTransacaoContabil, sCaptionTransacaoContabil_ENUS);
    SetResourceString(@sCaptionUnidadeNegocio, 'Business Unit');
    SetResourceString(@sCaptionUsuario, 'User');
    SetResourceString(@sCaptionVerificandoAtualizacaoSistema, 'Verifying system update.');
    SetResourceString(@sCaptionVisualizarDANFE, sCaptionVisualizarDANFE_ENUS);
    SetResourceString(@sCaptionVisualizarDocumento, sCaptionVisualizarDocumento_ENUS);
    SetResourceString(@sCaptionVisualizarDocumentoFiscal, sCaptionVisualizarDocumentoFiscal_ENUS);

    //Hints
    SetResourceString(@sHintCancelar, sHintCancelar_ENUS);
    SetResourceString(@sHintImprimirProposta, sHintImprimirProposta_ENUS);
    SetResourceString(@sHintExcluirEvento, sHintExcluirEvento_ENUS);
    SetResourceString(@sHintRecorrenciaEvento, sHintRecorrenciaEvento_ENUS);
    SetResourceString(@sHintSalvarEvento, sHintSalvarEvento_ENUS);

    // Mensagens
    SetResourceString(@sMsgArquivoSalvoEmDesejaVisualizar, sMsgArquivoSalvoEmDesejaVisualizar_ENUS);
    SetResourceString(@sMsgArquivoRelatorioNaoDefinido, sMsgArquivoRelatorioNaoDefinido_ENUS);
    SetResourceString(@sMsgArquivoRelatorioNaoEncontradoEm, sMsgArquivoRelatorioNaoEncontradoEm_ENUS);
    SetResourceString(@sMsgCancelarGeracaoArquivo, 'Cancelling file generation?');
    SetResourceString(@sMsgClasseRelatorioNaoEncontradaOuNaoDefinida, sMsgClasseRelatorioNaoEncontradaOuNaoDefinida_ENUS);
    SetResourceString(@sMsgConfirmarCancelamento, 'Confirm cancellation?');
    SetResourceString(@sMsgConfirmarExclusao, 'Confirm Delete?');
    SetResourceString(@sMsgConfirmaExclusaoTodosArquivosAtencao, sMsgConfirmaExclusaoTodosArquivosAtencao_ENUS);
    SetResourceString(@sMsgConfirmarGravacao, 'Confirm recording?');
    SetResourceString(@sMsgDataInvalida, sMsgDataInvalida_ENUS);
    SetResourceString(@sMsgDesejaVisualizarArquivo, 'You want to view the file?');
    SetResourceString(@sMsgDeveSerInformada, 'The %s should be informed.');
    SetResourceString(@sMsgDeveSerMaiorQue, '%s must be greater than %s.');
    SetResourceString(@sMsgDiretorioOrigemDestinoDevemSerDiferentes, sMsgDiretorioOrigemDestinoDevemSerDiferentes_ENUS);
    SetResourceString(@sMsgEmpresaNaoPossuiFiliais, 'Company does not have branches.');
    SetResourceString(@sMsgEmpresaNaoTemColigada, 'Company has no associate.');
    SetResourceString(@sMsgEmpresasDiferenteDivergenciaValores, sMsgEmpresasDiferenteDivergenciaValores_ENUS);
    SetResourceString(@sMsgEntreEmContatoComAcomSistemas, sMsgEntreEmContatoComAcomSistemas_ENUS);
    SetResourceString(@sMsgConsolidacaoNaoPermitida, sMsgConsolidacaoNaoPermitida_ENUS);
    SetResourceString(@sMsgEPrecisoSelecionarPeloMenosUmaConta, 'You must select at least one account.');
    SetResourceString(@sMsgEPrecisoSelecionarPeloMenosUmaEmpresa, 'You must select at least one company.');
    SetResourceString(@sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz, sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz_ENUS);
    SetResourceString(@sMsgErroAoConsultarBaseDadosLOGAtravesAPI, sMsgErroAoConsultarBaseDadosLOGAtravesAPI_ENUS);
    SetResourceString(@sMsgExistemCamposQueDevemSerPreenchidos, 'There are fields that must be filled.');
    SetResourceString(@sMsgExistemCamposDoQueDevemSerPreenchidos, 'There are fields of %s that must be filled.');
    SetResourceString(@sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar, sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar_ENUS);
    SetResourceString(@sMsgIntervaloFaixaValoresIncorreto, sMsgIntervaloFaixaValoresIncorreto_ENUS);
    SetResourceString(@sMsgMemoriaInsuficiente, sMsgMemoriaInsuficiente_ENUS);
    SetResourceString(@sMsgNaoExisteDocumentoFiscalVinculadoLancamento, sMsgNaoExisteDocumentoFiscalVinculadoLancamento_ENUS);
    SetResourceString(@sMsgNaoFoiPossivelCopiarArquivo, sMsgNaoFoiPossivelCopiarArquivo_ENUS);
    SetResourceString(@sMsgNaoFoiPossivelCriarArquivo, 'Could not create the file');

    SetResourceString(@sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema,
      sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema_ENUS);

    SetResourceString(@sMsgNaoFoiPossivelCriarNovaPasta, sMsgNaoFoiPossivelCriarNovaPasta_ENUS);

    SetResourceString(@sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes,
      sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes_ENUS);

    SetResourceString(@sMsgNaoFoiPossivelReestabelecerConexaoBD, sMsgNaoFoiPossivelReestabelecerConexaoBD_ENUS);
    SetResourceString(@sMsgNenhumaEmpresaParaUnidadeNegocio, 'No company for the business unit.');
    SetResourceString(@sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar, sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar_ENUS);
    SetResourceString(@sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres, sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres_ENUS);
    SetResourceString(@sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir, sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir_ENUS);
    SetResourceString(@sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo, sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo_ENUS);
    SetResourceString(@sMsgReconectandoServidorBD, sMsgReconectandoServidorBD_ENUS);
    SetResourceString(@sMsgSelecioneUmArquivoParaImportacao, sMsgSelecioneUmArquivoParaImportacao_ENUS);
    SetResourceString(@sMsgUsuarioJaLogadoSistemaHostSessao, sMsgUsuarioJaLogadoSistemaHostSessao_ENUS);

    // DevExpress
    {// Grid
    cxSetResourceString(@scxGridGroupByBoxCaption, 'Drag a column header here to group by that column');
    cxSetResourceString(@scxGridFilterRowInfoText, 'Click here to define a filter');
    cxSetResourceString(@scxGridFindPanelInfoText,'Enter text to search...');
    cxSetResourceString(@scxGridFindPanelClearButtonCaption, '&Clear');
    cxSetResourceString(@scxGridFindPanelFindButtonCaption , '&Find');}

    //NavBar
    cxSetResourceString(@sdxNavBarOffice11ShowMoreButtons, 'Show &More Buttons');
    cxSetResourceString(@sdxNavBarOffice11ShowFewerButtons, 'Show &Fewer Buttons');
    cxSetResourceString(@sdxNavBarOffice11AddRemoveButtons, '&Add or Remove Buttons');
  end
  else
  if pIdioma = ciEsEs then
  begin
    // TacBotoesCadastro
    SetResourceString(@sBtCaptionGravar, sBtCaptionGravar_ESES);
    SetResourceString(@sBtCaptionExcluir, sBtCaptionExcluir_ESES);
    SetResourceString(@sBtCaptionCancelar, sBtCaptionCancelar_ESES);
    SetResourceString(@sBtCaptionSituacao, sBtCaptionSituacao_ESES);
    SetResourceString(@sBtCaptionDuplicar, sBtCaptionDuplicar_ESES);
    SetResourceString(@sBtCaptionEnviarPorEmail, sBtCaptionEnviarPorEmail_ESES);
    SetResourceString(@sBtCaptionNovo, sBtCaptionNovo_ESES);
    SetResourceString(@sBtCaptionConsultar, sBtCaptionConsultar_ESES);
    SetResourceString(@sBtCaptionLimpar, sBtCaptionLimpar_ESES);
    SetResourceString(@sBtCaptionPrimeiro, sBtCaptionPrimeiro_ESES);
    SetResourceString(@sBtCaptionAnterior, sBtCaptionAnterior_ESES);
    SetResourceString(@sBtCaptionProximo, sBtCaptionProximo_ESES);
    SetResourceString(@sBtCaptionUltimo, sBtCaptionUltimo_ESES);
    SetResourceString(@sBtCaptionSelecionar, sBtCaptionSelecionar_ESES);
    SetResourceString(@sBtCaptionImprimir, sBtCaptionImprimir_ESES);
    SetResourceString(@sBtCaptionExportarParaArquivo, sBtCaptionExportarParaArquivo_ESES);
    SetResourceString(@sBtCaptionExtras, sBtCaptionExtras_ESES);
    SetResourceString(@sBtCaptionSair, sBtCaptionSair_ESES);
    SetResourceString(@sBtCaptionAjuda, sBtCaptionAjuda_ESES);
    SetResourceString(@sBtHintSituacao, sBtHintSituacao_ESES);
    // -- Fim TacBotoesCadastro

    // TacPeriodo
    SetResourceString(@sPeriodoCaption3UltimosDias, '3 ÚLTIMOS DÍAS');
    SetResourceString(@sPeriodoCaption7UltimosDias, '7 ÚLTIMOS DÍAS');
    SetResourceString(@sPeriodoCaption15UltimosDias, '15 ÚLTIMOS DÍAS');
    SetResourceString(@sPeriodoCaption30UltimosDias, '30 ÚLTIMOS DÍAS');
    SetResourceString(@sPeriodoCaption45UltimosDias, '45 ÚLTIMOS DÍAS');
    SetResourceString(@sPeriodoCaption60UltimosDias, '60 ÚLTIMOS DÍAS');
    SetResourceString(@sPeriodoCaptionPeriodo, 'PERÍODO');
    SetResourceString(@sPeriodoCaptionMesAtual, 'MES ACTUAL');
    SetResourceString(@sPeriodoCaptionMesAnterior, 'MES PASADO');
    // -- Fim TacPeriodo

    // Captions
    SetResourceString(@sBtCaptionEnviar, '&Enviar');
    SetResourceString(@sBtCaptionVoltar, '&Retorno');
    SetResourceString(@sCaptionAguardeSincronizandoDados, 'Espere, la sincronización de datos...');
    SetResourceString(@sCaptionArquivos, 'archivos');
    SetResourceString(@sCaptionAreaTransferencia, 'Portapapeles');
    SetResourceString(@sCaptionCarregarVisaoGrade, sCaptionCarregarVisaoGrade_ESES);
    SetResourceString(@sCaptionCentroCusto, sCaptionCentroCusto_ESES);
    SetResourceString(@sCaptionConsolidacao, sCaptionConsolidacao_ESES);
    SetResourceString(@sCaptionConsolidado, sCaptionConsolidado_ESES);
    SetResourceString(@sCaptionConsultarLOG, sCaptionConsultarLOG_ESES);
    SetResourceString(@sCaptionCopiarAreaTransferencia, sCaptionCopiarAreaTransferencia_ESES);
    SetResourceString(@sCaptionDataFinal, 'Fecha de Inicio');
    SetResourceString(@sCaptionDataInicial, 'Fecha Final');
    SetResourceString(@sCaptionDesafixarLinha, sCaptionDesafixarLinha_ESES);
    SetResourceString(@sCaptionEmpresa, sCaptionEmpresa_ESES);
    SetResourceString(@sCaptionEnviandoLembreteSenha, 'Envío de recordatorio de contraseña...');
    SetResourceString(@sCaptionEsqueciMinhaSenha, 'Olvide mi contraseña');
    SetResourceString(@sCaptionExpandir, sCaptionExpandir_ESES);
    SetResourceString(@sCaptionExportarParaArquivo, 'Exportar a archivo');
    SetResourceString(@sCaptionExportacao, sCaptionExportacao_ESES);
    SetResourceString(@sCaptionFixarLinhaAbaixo, sCaptionFixarLinhaAbaixo_ESES);
    SetResourceString(@sCaptionFixarLinhaTopo, sCaptionFixarLinhaTopo_ESES);
    SetResourceString(@sCaptionGeral, sCaptionGeral_ESES);
    SetResourceString(@sCaptionGerenciarVisoesGrade, sCaptionGerenciarVisoesGrade_ESES);
    SetResourceString(@sCaptionIdentificacaoUsuario, 'Identificación de Usuario');
    SetResourceString(@sCaptionImagem, 'Imagen');
    SetResourceString(@sCaptionImportar, sCaptionImportar_ESES);
    SetResourceString(@sCaptionImportandoItem, sCaptionImportandoItem_ESES);
    SetResourceString(@sCaptionImprimir, 'Impresión');
    SetResourceString(@sCaptionImprimirFormulario, sCaptionImprimirFormulario_ESES);
    SetResourceString(@sCaptionInformeSeuLoginEmail, 'Introduzca su LOGIN o E-MAIL');
    SetResourceString(@sCaptionIniciando, sCaptionIniciando_ESES);
    SetResourceString(@sCaptionLancementoContabil, sCaptionLancementoContabil_ESES);
    SetResourceString(@sCaptionLembrarSuaSenha, 'Recuerde Su Contraseña');
    SetResourceString(@sCaptionLoginInformeSeuCodgioEntidade, sCaptionLoginInformeSeuCodgioEntidade_ESES);
    SetResourceString(@sCaptionMatrizFilial, sCaptionMatrizFilial_ESES);
    SetResourceString(@sCaptionNao, 'No');
    SetResourceString(@sCaptionNomePasta, sCaptionNomePasta_ESES);
    SetResourceString(@sCaptionNovaPasta, sCaptionNovaPasta_ESES);
    SetResourceString(@sCaptionNovoArquivo, sCaptionNovoArquivo_ENUS);
    SetResourceString(@sCaptionPlanoContabil, sCaptionPlanoContabil_ESES);
    SetResourceString(@sCaptionPlanoGerencial, sCaptionPlanoGerencial_ESES);
    SetResourceString(@sCaptionRecolher, sCaptionRecolher_ESES);
    SetResourceString(@sCaptionRestaurarConfigPadraoGrid, 'Restaurar valores predeterminados de configuración de cuadrícula');
    SetResourceString(@sCaptionSalvarPreferenciasGrid, 'Guardar Preferencias de Cuadrícula');
    SetResourceString(@sCaptionSalvarArquivo, sCaptionSalvarArquivo_ESES);
    SetResourceString(@sCaptionSalvarVisaoGrade, sCaptionSalvarVisaoGrade_ESES);
    SetResourceString(@sCaptionSelecionarTodos, 'Seleccione Todos');
    SetResourceString(@sCaptionSenha, 'Contraseña');
    SetResourceString(@sCaptionSessao, sCaptionSessao_ESES);
    SetResourceString(@sCaptionSim, 'Sí');
    SetResourceString(@sCaptionTransacaoContabil, sCaptionTransacaoContabil_ESES);
    SetResourceString(@sCaptionTodosOsArquivos, 'Todos los archivos');
    SetResourceString(@sCaptionUnidadeNegocio, 'Unidad de negocio');
    SetResourceString(@sCaptionUsuario, 'Usuario');
    SetResourceString(@sCaptionVerificandoAtualizacaoSistema, 'Verificando actualización del sistema.');
    SetResourceString(@sCaptionVisualizarDANFE, sCaptionVisualizarDANFE_ESES);
    SetResourceString(@sCaptionVisualizarDocumento, sCaptionVisualizarDocumento_ESES);
    SetResourceString(@sCaptionVisualizarDocumentoFiscal, sCaptionVisualizarDocumentoFiscal_ESES);

    //Hints
    SetResourceString(@sHintCancelar, sHintCancelar_ESES);
    SetResourceString(@sHintImprimirProposta, sHintImprimirProposta_ESES);
    SetResourceString(@sHintExcluirEvento, sHintExcluirEvento_ESES);
    SetResourceString(@sHintRecorrenciaEvento, sHintRecorrenciaEvento_ESES);
    SetResourceString(@sHintSalvarEvento, sHintSalvarEvento_ESES);

    // Mensagens
    SetResourceString(@sMsgArquivoSalvoEmDesejaVisualizar, sMsgArquivoSalvoEmDesejaVisualizar_ESES);
    SetResourceString(@sMsgArquivoRelatorioNaoDefinido, sMsgArquivoRelatorioNaoDefinido_ESES);
    SetResourceString(@sMsgArquivoRelatorioNaoEncontradoEm, sMsgArquivoRelatorioNaoEncontradoEm_ESES);
    SetResourceString(@sMsgCancelarGeracaoArquivo, 'Cancelling file generation?');
    SetResourceString(@sMsgClasseRelatorioNaoEncontradaOuNaoDefinida, sMsgClasseRelatorioNaoEncontradaOuNaoDefinida_ESES);
    SetResourceString(@sMsgConfirmarCancelamento, 'Confirme la cancelación?');
    SetResourceString(@sMsgConfirmarExclusao, 'Confirmar eliminación?');
    SetResourceString(@sMsgConfirmaExclusaoTodosArquivosAtencao, sMsgConfirmaExclusaoTodosArquivosAtencao_ESES);
    SetResourceString(@sMsgConfirmarGravacao, 'Confirmar la grabación?');
    SetResourceString(@sMsgDataInvalida, sMsgDataInvalida_ESES);
    SetResourceString(@sMsgDesejaVisualizarArquivo, 'Que desea ver el archivo?');
    SetResourceString(@sMsgDeveSerInformada, 'La %s debe ser informado.');
    SetResourceString(@sMsgDeveSerMaiorQue, '%s debe ser mayor que %s.');
    SetResourceString(@sMsgDiretorioOrigemDestinoDevemSerDiferentes, sMsgDiretorioOrigemDestinoDevemSerDiferentes_ESES);
    SetResourceString(@sMsgEmpresaNaoPossuiFiliais, 'Compañía no tiene ramas.');
    SetResourceString(@sMsgEmpresaNaoTemColigada, 'Compañía no tiene asociado.');
    SetResourceString(@sMsgEmpresasDiferenteDivergenciaValores, sMsgEmpresasDiferenteDivergenciaValores_ESES);
    SetResourceString(@sMsgEntreEmContatoComAcomSistemas, sMsgEntreEmContatoComAcomSistemas_ESES);
    SetResourceString(@sMsgConsolidacaoNaoPermitida, sMsgConsolidacaoNaoPermitida_ESES);
    SetResourceString(@sMsgEPrecisoSelecionarPeloMenosUmaConta, 'Debe seleccionar al menos una cuenta.');
    SetResourceString(@sMsgEPrecisoSelecionarPeloMenosUmaEmpresa, 'Debe seleccionar al menos una empresa.');
    SetResourceString(@sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz, sMsgEPrecisoSelecionarPeloMenosUmaEmpresaMatriz_ESES);
    SetResourceString(@sMsgErroAoConsultarBaseDadosLOGAtravesAPI, sMsgErroAoConsultarBaseDadosLOGAtravesAPI_ESES);
    SetResourceString(@sMsgExistemCamposQueDevemSerPreenchidos, 'Hay campos que deben ser rellenados.');
    SetResourceString(@sMsgExistemCamposDoQueDevemSerPreenchidos, 'Hay campos de %s que debe ser llenado.');
    SetResourceString(@sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar, sMsgExisteUmaNovaVersaoDoSistemaEverestDesejaAtualizar_ESES);
    SetResourceString(@sMsgIntervaloFaixaValoresIncorreto, sMsgIntervaloFaixaValoresIncorreto_ESES);
    SetResourceString(@sMsgMemoriaInsuficiente, sMsgMemoriaInsuficiente_ESES);
    SetResourceString(@sMsgNaoExisteDocumentoFiscalVinculadoLancamento, sMsgNaoExisteDocumentoFiscalVinculadoLancamento_ESES);
    SetResourceString(@sMsgNaoFoiPossivelCopiarArquivo, sMsgNaoFoiPossivelCopiarArquivo_ESES);
    SetResourceString(@sMsgNaoFoiPossivelCriarArquivo, 'No se pudo crear el archivo');

    SetResourceString(@sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema,
      sMsgNaoFoiPossivelCriarDiretorioEntreEmContatoComAdministradorSistema_ESES);

    SetResourceString(@sMsgNaoFoiPossivelCriarNovaPasta, sMsgNaoFoiPossivelCriarNovaPasta_ESES);

    SetResourceString(@sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes,
      sMsgNaoFoiPossivelExecutarEstaOperacaoTenteNovamenteMaisTardeDetalhes_ESES);

    SetResourceString(@sMsgNaoFoiPossivelReestabelecerConexaoBD, sMsgNaoFoiPossivelReestabelecerConexaoBD_ESES);
    SetResourceString(@sMsgNenhumaEmpresaParaUnidadeNegocio, 'Ninguna empresa de la unidad de negocio.');
    SetResourceString(@sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar, sMsgOArquivoFoiSalvoNaSuaPastaDeArquivosDesejaVisualizar_ESES);
    SetResourceString(@sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres, sMsgOCodigoDeEntidadeDeveTerNoMinimo7Caracteres_ESES);
    SetResourceString(@sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir, sMsgODestinoJaPossuiUmArquivoChamadoDesejaSubstituir_ESES);
    SetResourceString(@sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo, sMsgOLimiteParaCopiar2000RegistrosDesejaExportarParaArquivo_ESES);
    SetResourceString(@sMsgReconectandoServidorBD, sMsgReconectandoServidorBD_ESES);
    SetResourceString(@sMsgSelecioneUmArquivoParaImportacao, sMsgSelecioneUmArquivoParaImportacao_ESES);
    SetResourceString(@sMsgUsuarioJaLogadoSistemaHostSessao, sMsgUsuarioJaLogadoSistemaHostSessao_ESES);

    // DevExpress
    {//Grid
    cxSetResourceString(@scxGridGroupByBoxCaption, 'Arrastre la columna aquí para agrupar');
    cxSetResourceString(@scxGridFilterRowInfoText, 'Haga clic aquí para configurar un filtro');
    cxSetResourceString(@scxGridFindPanelInfoText,'Buscar...');
    cxSetResourceString(@scxGridFindPanelClearButtonCaption, '&Limpio');
    cxSetResourceString(@scxGridFindPanelFindButtonCaption , '&Encontrar');}

    //NavBar
    cxSetResourceString(@sdxNavBarOffice11ShowMoreButtons, 'Ver &Más Botones');
    cxSetResourceString(@sdxNavBarOffice11ShowFewerButtons, 'Ver M&enús Botones');
    cxSetResourceString(@sdxNavBarOffice11AddRemoveButtons, '&Agregar o Quitar Botones');
  end;
end;

class procedure TTraducao.DefinirResourceStringCaption;
begin
  SetResourceString(@sBtCaptionGravar, PWideChar(PegarCaptionBotaoGravar));
end;

class procedure TTraducao.DefinirResourceStringDelphi;
begin
  DefinirResourceStringDelphiMensagem;
end;

class procedure TTraducao.DefinirResourceStringDelphiMensagem;
begin
  // Message Dialog
  SetResourceString(@SMsgDlgHelpHelp, PegarTextoTraduzidoPWideChar('Ajuda', 'Help', 'Ayuda'));
  SetResourceString(@SMsgDlgHelpNone, PegarTextoTraduzidoPWideChar('Ajuda não disponível', 'No help available', 'Ayudar no disponible'));
  SetResourceString(@SMsgDlgWarning, PegarTextoTraduzidoPWideChar('Atenção', 'Warning', 'Precaución'));
  SetResourceString(@SMsgDlgConfirm, PegarTextoTraduzidoPWideChar('Confirmação', 'Confirm', 'Confirmación'));
  SetResourceString(@SMsgDlgError, PegarTextoTraduzidoPWideChar('Erro', 'Error', 'Error'));
  SetResourceString(@SMsgDlgInformation, PegarTextoTraduzidoPWideChar('Informação', 'Information', 'Información'));
  SetResourceString(@SMsgDlgAbort, PegarTextoTraduzidoPWideChar('&Abortar', '&Abort', '&Fracasar'));
  SetResourceString(@SMsgDlgHelp, PegarTextoTraduzidoPWideChar('Aj&uda', '&Help', 'Ay&uda'));
  SetResourceString(@SMsgDlgCancel, PegarTextoTraduzidoPWideChar('&Cancelar', 'Cancel', '&Cancelar'));
  SetResourceString(@SMsgDlgIgnore, PegarTextoTraduzidoPWideChar('&Ignorar', '&Ignore', 'Pasar por &Alto'));
  SetResourceString(@SMsgDlgClose, PegarTextoTraduzidoPWideChar('&Fechar', '&Close', 'C&errar'));
  SetResourceString(@SMsgDlgNo, PegarTextoTraduzidoPWideChar('&Não', '&No', '&No'));
  SetResourceString(@SMsgDlgNoToAll, PegarTextoTraduzidoPWideChar('Não para tu&do', 'N&o to All', 'No para to&dos'));
  SetResourceString(@SMsgDlgOK, PegarTextoTraduzidoPWideChar('&OK', 'OK', '&OK'));
  SetResourceString(@SMsgDlgRetry, PegarTextoTraduzidoPWideChar('&Repetir', '&Retry', '&Repetición'));
  SetResourceString(@SMsgDlgYes, PegarTextoTraduzidoPWideChar('&Sim', '&Yes', '&Sí'));
  SetResourceString(@SMsgDlgYesToAll, PegarTextoTraduzidoPWideChar('Si&m para tudo', 'Yes to &All', 'Sí a t&odo'));
  SetResourceString(@SMsgDlgAll, PegarTextoTraduzidoPWideChar('&Tudo', '&All', '&Todos'));

  // Mensagens Delphi
  SetResourceString(@SFieldNotFound, PegarTextoTraduzidoPWideChar(
    'Campo ''%s'' não encontrado',
    'Field ''%s'' not found',
    'Campo ''%s'' no encontrado'));

  SetResourceString(@SFieldAccessError, PegarTextoTraduzidoPWideChar(
    'Não é possível acessar o campo ''%s'' com o tipo %s',
    'Cannot access field ''%s'' as type %s',
    'No se puede acceder al campo ''%s'' como tipo %s'));

  SetResourceString(@SFieldValueError, PegarTextoTraduzidoPWideChar(
    'Valor inválido para o campo ''%s''',
    'Invalid value for field ''%s''',
    'Valor no válido para el campo ''%s'''));

  SetResourceString(@SFieldRangeError, PegarTextoTraduzidoPWideChar(
    '%g não é um valor válido para o campo ''%s''. O valor permitido é de %g a %g',
    '%g is not a valid value for field ''%s''. The allowed range is %g to %g',
    '%g no es un valor válido para el campo ''%s''. El intervalo permitido es de %g a %g'));

  SetResourceString(@SBcdFieldRangeError, PegarTextoTraduzidoPWideChar(
    '%s não é um valor válido para o campo ''%s''. O valor permitido é de %s a %s',
    '%s is not a valid value for field ''%s''. The allowed range is %s to %s',
    '%s no es un valor válido para el campo ''%s''. El intervalo permitido es de %s a %s'));

  SetResourceString(@SInvalidIntegerValue, PegarTextoTraduzidoPWideChar(
    '''%s'' não é um valor inteiro válido para o campo ''%s''',
    '''%s'' is not a valid integer value for field ''%s''',
    '''%s'' no es un valor entero válido para el campo ''%s'''));

  SetResourceString(@SInvalidBoolValue, PegarTextoTraduzidoPWideChar(
    '''%s'' não é um valor booleano válido para o campo ''%s''',
    '''%s'' is not a valid boolean value for field ''%s''',
    '''%s'' no es un valor booleano válido para el campo ''%s'''));

  SetResourceString(@SInvalidFloatValue, PegarTextoTraduzidoPWideChar(
    '''%s'' não é um valor de ponto flutuante válido para o campo ''%s''',
    '''%s'' is not a valid floating point value for field ''%s''',
    '''%s'' no es un valor de punto flotante válido para el campo ''%s'''));

  SetResourceString(@SFieldTypeMismatch, PegarTextoTraduzidoPWideChar(
    'Tipo incompatível para o campo ''%s'', esperando: %s atual: %s',
    'Type mismatch for field ''%s'', expecting: %s actual: %s',
    'Tipo de coincidencia para el campo ''%s'', esperando: %s real: %s'));

  SetResourceString(@SFieldRequired, PegarTextoTraduzidoPWideChar(
    'Campo ''%s'' deve ter um valor',
    'Field ''%s'' must have a value',
    'Campo ''%s'' debe tener un valor'));

  SetResourceString(@SDataSetOpen, PegarTextoTraduzidoPWideChar(
    'Não é possível executar esta operação em um conjunto de dados aberto',
    'Cannot perform this operation on an open dataset',
    'No se puede realizar esta operación en un dataset abierto'));

  SetResourceString(@SNetHttpClientReceiveError, PegarTextoTraduzidoPWideChar(
    'Erro ao receber dados: (%d) %s',
    'Error receiving data: (%d) %s',
    'Error al recibir datos: (%d) %s'));

  SetResourceString(@SNetHttpClientResponseError, PegarTextoTraduzidoPWideChar(
    'Erro ao obter dados de resposta',
    'Error obtaining response data',
    'Error al obtener datos de respuesta'));

  SetResourceString(@SNetHttpClientSendError, PegarTextoTraduzidoPWideChar(
    'Erro ao enviar dados: (%d) %s',
    'Error sending data: (%d) %s',
    'Error al enviar datos: (%d) %s'));

  SetResourceString(@SNetHttpRequestConnectError, PegarTextoTraduzidoPWideChar(
    'Erro ao conectar ao servidor: %s',
    'Error connecting to server: %s',
    'Error al conectarse al servidor: %s'));

  SetResourceString(@SNetHttpRequestReadDataError, PegarTextoTraduzidoPWideChar(
    'Erro ao ler dados: (%d) %s',
    'Error reading data: (%d) %s',
    'Error al leer los datos: (%d) %s'));

  SetResourceString(@SNotEditing, PegarTextoTraduzidoPWideChar(
    'Conjunto de dados não está no modo de edição ou inserção',
    'Dataset not in edit or insert mode',
    'Los datos no estan en modo edición'));

  SetResourceString(@SDataSetClosed, PegarTextoTraduzidoPWideChar(
    'Não é possível executar esta operação em um conjunto de dados fechado',
    'Cannot perform this operation on a closed dataset',
    'No se puede realizar esta operación en un dataset cerrado'));

  SetResourceString(@SDataSetEmpty, PegarTextoTraduzidoPWideChar(
    'Não é possível executar esta operação em um conjunto de dados vazio',
    'Cannot perform this operation on an empty dataset',
    'No se puede realizar esta operación en un conjunto de datos vacío'));

  SetResourceString(@STextFalse, PegarTextoTraduzidoPWideChar(
    'Falso',
    'False',
    'Falso'));

  SetResourceString(@STextTrue, PegarTextoTraduzidoPWideChar(
    'Verdadeiro',
    'True',
    'Verdadero'));

  SetResourceString(@SParameterNotFound, PegarTextoTraduzidoPWideChar(
    'Parâmetro ''%s'' não encontrado',
    'Parameter ''%s'' not found',
    'No se ha encontrado el parámetro ''%s'''));

  SetResourceString(@SRecordChanged, PegarTextoTraduzidoPWideChar(
    'Registro não encontrado ou modificado por outro usuário',
    'Record not found or changed by another user',
    'Registro no encontrado o modificado por otro usuario'));

  SetResourceString(@SRecordNotFound, PegarTextoTraduzidoPWideChar(
    'Registro não encontrado',
    'Record not found',
    'Registro no encontrado'));

  SetResourceString(@sResponseContentIsEmpty, PegarTextoTraduzidoPWideChar(
    'O conteúdo da resposta está vazio',
    'Response content is empty',
    'El contenido de la respuesta está vacío'));

  SetResourceString(@sResponseContentIsNotJSON, PegarTextoTraduzidoPWideChar(
    'O conteúdo da resposta não é um JSON válido',
    'Response content is not valid JSON',
    'El contenido de la respuesta no es JSON válido'));

  SetResourceString(@sRESTRequestFailed, PegarTextoTraduzidoPWideChar(
    'Requisição REST falhou: %s',
    'REST request failed: %s',
    'Error en la solicitud de REST: %s'));

  SetResourceString(@RSConnectTimeout, PegarTextoTraduzidoPWideChar(
    'Tempo limite de conexão esgotado.',
    'Connect timed out.',
    'Tiempo de conexión agotado.'));

  SetResourceString(@RSFTPHostNotFound, PegarTextoTraduzidoPWideChar(
    'Host não encontrado.',
    'Host not found.',
    'Host no encontrado.'));

  SetResourceString(@RSSocksServerConnectionRefusedError, PegarTextoTraduzidoPWideChar(
    'Conexão recusada.',
    'Connection refused.',
    'Conexión denegada.'));

  SetResourceString(@RSStackECONNREFUSED, PegarTextoTraduzidoPWideChar(
    'Conexão recusada.',
    'Connection refused.',
    'Conexión denegada.'));

  SetResourceString(@RSStackError, PegarTextoTraduzidoPWideChar(
    'Erro ao conectar (%d). %s',
    'Error connecting (%d). %s',
    'Error al conectar (%d). %s'));

  SetResourceString(@RSStackHOST_NOT_FOUND, PegarTextoTraduzidoPWideChar(
    'Host não encontrado.',
    'Host not found.',
    'Host no encontrado.'));

  SetResourceString(@SInvalidSqlTimeStamp, PegarTextoTraduzidoPWideChar(
    'Valores SQL de data/hora inválidos',
    'Invalid SQL date/time values',
    'Valores SQL de fecha/hora no válidos'));

  SetResourceString(@SDeleteRecordQuestion, PegarTextoTraduzidoPWideChar(
    'Excluir registro?',
    'Delete record?',
    'Eliminar el registro?'));

  SetResourceString(@SDeleteMultipleRecordsQuestion, PegarTextoTraduzidoPWideChar(
    'Excluir todos os registro selecionados?',
    'Delete all selected records?',
    'Eliminar todos los registros seleccionados?'));

  SetResourceString(@SNetUriInvalid, PegarTextoTraduzidoPWideChar(
    'URL Inválida: "%s"',
    'Invalid URL: "%s"',
    'URL Invalida: "%s"'));

  SetResourceString(@SNetUriParamNotFound, PegarTextoTraduzidoPWideChar(
    'Parâmetro "%s" não encontrado',
    'Parameter "%s" not found',
    'No se encontró el parámetro "%s"'));

  SetResourceString(@sUnknownContentType, PegarTextoTraduzidoPWideChar(
    'Tipo de conteúdo desconhecido: %s',
    'Unknown content type: %s',
    'Tipo de contenido desconocido: %s'));
end;

class procedure TTraducao.DefinirResourceStringHint;
begin
  //SetResourceString(@sHintLinkCopiado, PWideChar(PegarHintLinkCopiado));
end;

class procedure TTraducao.DefinirResourceStringMensagem;
begin

end;

class procedure TTraducao.InicializarClassVars;
begin
  FIdioma := ciPtBR;
  DefinirResourceStringHint;
end;

class function TTraducao.PegarCaptionBotaoGravar: String;
begin
  Result := PegarTextoTraduzido('Gravar', 'Save', 'Guardar');
end;

class function TTraducao.PegarCaptionCadastrarVisualizarDocumento: String;
begin
  Result := PegarTextoTraduzido('Cadastrar/Visualizar Documento', 'Register/View Document', 'Registrarse/Ver Documento');
end;

class function TTraducao.PegarHintLinkCopiado: String;
begin
  Result := PegarTextoTraduzido('Link copiado', 'Link Copied', 'Enlace copiado');
end;

class function TTraducao.PegarTextoTraduzido(const psTextoPTBR, psTextoENUS, psTextoESES: String): String;
begin
  case FIdioma of
    ciEnUS: Result := psTextoENUS;
    ciEsEs: Result := psTextoESES;
  else
    Result := psTextoPTBR
  end;
end;

class function TTraducao.PegarTextoTraduzidoPWideChar(const psTextoPTBR, psTextoENUS, psTextoESES: String): PWideChar;
begin
  Result :=PWideChar( PegarTextoTraduzido(psTextoPTBR, psTextoENUS, psTextoESES));
end;

class procedure TTraducao.SetResourceString(pResourceString: PResStringRec; pcNovoResourceString: PChar);
var
  POldProtect: DWORD;
begin
  VirtualProtect(pResourceString, SizeOf(pResourceString^), PAGE_EXECUTE_READWRITE, @POldProtect);

  pResourceString^.Identifier := Integer(pcNovoResourceString);

  VirtualProtect(pResourceString, SizeOf(pResourceString^), POldProtect, @POldProtect);
end;

class procedure TTraducao.Traduzir(const psIdioma: String);
begin
  if SameText(psIdioma, IDIOMA_EN_US) then
    TTraducao.Traduzir(ciEnUS)
  else
  if SameText(psIdioma, IDIOMA_ES_ES) then
    TTraducao.Traduzir(ciEsEs)
  else
    TTraducao.Traduzir;
end;

initialization
  TTraducao.InicializarClassVars;
  TTraducao.Traduzir;

end.
Editor is loading...
Leave a Comment