Validar CGC/CNPJ (Delphi, Forms)

interface
uses
    SysUtils;

implementation

function TestaCgc(xCGC: String):Boolean;
{Testa se o CGC é válido ou não}
Var
d1,d4,xx,nCount,fator,resto,digito1,digito2 : Integer;
Check : String;
begin
d1 := 0;
d4 := 0;
xx := 1;
for nCount := 1 to Length( xCGC )-2 do
    begin
    if Pos( Copy( xCGC, nCount, 1 ), '/-.' ) = 0 then
      begin
      if xx < 5 then
          begin
          fator := 6 - xx;
          end
      else
          begin
          fator := 14 - xx;
          end;
      d1 := d1 + StrToInt( Copy( xCGC, nCount, 1 ) ) * fator;
      if xx < 6 then
          begin
          fator := 7 - xx;
          end
      else
          begin
          fator := 15 - xx;
          end;
      d4 := d4 + StrToInt( Copy( xCGC, nCount, 1 ) ) * fator;
      xx := xx+1;
      end;
    end;
    resto := (d1 mod 11);
    if resto < 2 then
      begin
      digito1 := 0;
      end
  else
      begin
      digito1 := 11 - resto;
      end;
  d4 := d4 + 2 * digito1;
  resto := (d4 mod 11);
  if resto < 2 then
      begin
      digito2 := 0;
      end
  else
      begin
      digito2 := 11 - resto;
      end;
  Check := IntToStr(Digito1) + IntToStr(Digito2);
  if Check <> copy(xCGC,succ(length(xCGC)-2),2) then
      begin
      Result := False;
      end
  else
      begin
      Result := True;
      end;
end;

end.