function CheckEAN13(EAN13: string; ShowMessage : boolean = False): boolean;
var
  s: string;
  i, uControl1, uControl2, uControl: integer;
begin
  Result := False;
  if Length(EAN13) <> 13 then begin
    if ShowMessage then Application.MessageBox('Штрих-код EAN13 должен состоять из 13 цифр.', 'Проверка штрих-кода', MB_OK + MB_ICONWARNING);
    Exit;
  end;{if}
  {отрезаем контрольный разряд}
  s := copy(EAN13, 1, 12);
  {подсчет контрольного разряда заново}
  uControl1 := 0; uControl2 := 0;

  for i:=1 to length(s) div 2
    do Inc(uControl1, StrToInt(copy(s, 1+i*2-2, 1)));
  for i:=1 to length(s) div 2
    do Inc(uControl2, StrToInt(copy(s, 1+i*2-1, 1)));
  uControl := (uControl1 + uControl2*3) mod 10;
  if uControl > 0
    then uControl := 10 - uControl;
  s := s + IntToStr(uControl);
  {}
  if (s = EAN13)
    then Result := True
    else if ShowMessage then Application.MessageBox('Штрих-код неверный. Не совпадает контрольный разряд.', 'Проверка штрих-кода', MB_OK + MB_ICONWARNING);
end;

procedure CheckEAN13(const EAN13: string);
const
  CCodeLen = 13;
var
  i, uControl1, uControl2, uControl: Integer;
begin
  if Length(EAN13) <> CCodeLen then
    raise Exception.Create('Штрих-код EAN13 должен состоять из 13 цифр.');

  {подсчет контрольного разряда заново}
  uControl1 := 0;
  uControl2 := 0;

  for i:=1 to (CCodeLen - 1) div 2 do begin
    Inc(uControl1, StrToInt(EAN13[i * 2 - 1]));
    Inc(uControl2, StrToInt(EAN13[i * 2]));
  end;
  uControl := (uControl1 + uControl2 * 3) mod 10;
  uControl := 10 - uControl;

  if IntToStr(EAN13[CCodeLen]) <> uControl then
    raise Exception.Create('Штрих-код неверный. Не совпадает контрольный разряд.');
end;

EEAN13Error = class(Exception)