o codigo abaixo é válido testei o digito verificador, e no ACBrValidador1
EAN13
0000000037716
ACBrValidador1.Documento := CodigoBarra;
ACBrValidador1.TipoDocto := docGTIN;
Result := ACBrValidador1.Validar;
Quando é feito a Leitura pelo Leitor de Código de Barras, o código vem um digito a menos, fiz a leitura no Bloco de Notas, sempre vem com um zero a menos
Anexado foto da Etiqueta