RDcheck 3.0
Componente para validação de documentos
Válida CNPJ, CPF, PIS/PASEP,
Válida e põe mascara na Inscrição Estadual de Todos os Estados (sem uso de DLL)
Cartão de Crédito (Visa, Master etc)
Programa demonstração (.exe)

Vantagens
Muito simples e prático de usar
não necessita DLL,
mais fácil distribuir diminuindo o tamanho final do Executável
Você pode atualiza-lo pois terá os fontes disponível
Recursos:
Valida os seguintes documentos: CGC, CPF, PIS, INSCRIÇÃO ESTADUAL (Todos os Estados), Estado (UF)
Você pode informar o número a ser validado com ou sem máscara Retorna: a) Validade: se o número é valido ou não;
b) Mascara : O número com a MÁSCARA padrão para cada estado
c) Mensagem: Texto com o erro encontrado na validação

Funções e Propriedades:
Function ChkUF (UF : string) : boolean;
Function ChkIE (Numero, UF : string) : boolean;
Function ChkCGC(Numero : string) : boolean;
Function ChkCPF(Numero : string) : boolean;
Function ChkPIS(Numero : string) : boolean;
property Numero : string = Número do documento validado;
property Estado : string = Estado
property Mascara : string = Retorno do Numero Formatado;
property Mensagem: string = Retorno do ERRO
property Valido : boolean = Retorno da validade;

Observações de uso:
a) Para Validar Estado basta informar a Sigla
b) Para Validar Inscrição Estadual é necessário informar o Número e o Estado, pois a validação e formato da mascara difere para cada estado.
c) Para Validar CGC, CPF e PIS basta informar o número
d) Você deve chamar a função correspondente para cada validação e poderá checar a validade diretamente na função ou na propriedade "Valido"

Ex: Validação da Inscrição estadual:
if rdcheck1.ChkIE(Numero_Inscricao.TEXT, Estado.TEXT) then
    shomessage('Inscrição Ok')
else
    showmessage('Inscrição estadual incorreta...');
label3.caption := rdcheck1.Mascara; // Numero ormatado
label4.caption := rdcheck1.Mensagem; // Mensagem de Erro
checkbox1.checked := rdcheck1.Valido; // Resultado
Histórico das Versões:
3.0 - 01/06/2016 - Compatibilidade com Delphi XE8, Delphi 10 Seattle e Delphi 10.1 Berlin
2.9 - 18/09/2012 - Revisão nos Calculo da IE da Bahia
2.8 - Ajustes para Delphi Unicode 2009/2010/XE

*** Versões Antigas ***
2.0a - Lançamento versão final
2.0b - 07/11/00 - Alteração no CheckDigit ACRE
2.0c - 19/03/01 - Alteração no CheckDigit DF
2.0d - 15/10/01 - Alteração no CheckDigit RONDONIA
2.0e - 31/01/02 - Alteração no CheckDigit ALAGOAS - Novo Tipo de Empresa 0-1 Normal
2.0f - 05/02/02 - Alteração no CheckDigit SERGIPE - Acrescentou 1 digito na IE
2.1 - 01/10/02 - Alteração no CheckDigit SERGIPE - Quantidade de dígitos (correto é 9)
2.2 - 10/02/03 - Alteração no CheckDigit TOCANTINS - Quantidade de dígitos (correto é 9)
2.3 - 12/07/04 - Alteração no CheckDigit ALAGOAS - Novo Tipo 6 - Empresa Pequeno Porte
2.4 - 01/12/04 - Alteração no CheckDigit RS - Removido a validação do Cód. Município
2.5 - 10/12/05 - Alteração no CheckDigit Alagoas - Removido a validação do Cód. Município
2.6 - 05/08/08 - NOVO validação de EMail (Bonus) e Introdução da validação do CEI
2.7 - 29/08/08 - NOVO validação da Inscrição de Pernambuco Portaria SF Nº 087 de 03/07/2007
CHKPE_Old - Opção para validar IE antigas para PE
ChkPE_Converte - Converte Inscrições PE p/ novo Formato

MENSAGEM

TEXTO