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;