Função: Validar CNPJ - Códigos Delphi

Código Delphi

// Função: Validar CNPJ.

// Verifica se o CNPJ é Válido ou Não.

Código

function CalculaCnpjCpf(Numero : String) : String;
var
i, j, k, Soma, Digito : Integer;
CNPJ : Boolean;
begin
Result := Numero;
case Length(Numero) of 9: CNPJ := False;
12: CNPJ := True;
else
Exit; end;
for j := 1 to 2 do begin
k := 2;
Soma := 0;
for i := Length(Result) downto 1 do begin
Soma := Soma + (Ord(Result[i])-Ord('0'))*k;
Inc(k);
if (k > 9) and CNPJ then
k := 2;
end;
Digito := 11 - Soma mod 11;
if Digito >= 10 then
Digito := 0;
Result := Result + Chr(Digito + Ord('0'));
end; end;