1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

function ValidISBN(const aISBN: string): boolean;
var 
  hNumber,
  hCheckDigit: string;
  hCheckValue,
  hCheckSum,
  Err: integer;
  i,Cnt: Word;
begin
  Result := false;
  hCheckDigit := Copy(aISBN, Length(aISBN), 1);
  {Get rest of ISBN, minus check digit and its hyphen}
  hNumber := Copy(aISBN, 1, Length(aISBN) - 2);
  {Length of ISBN remainder must be 11 and check digit
   between 9 and 9 or X}
  if (Length(hNumber)=11)and(Pos(hCheckDigit,
      '0123456789X') > 0) then
  begin
    {Get numeric value for check digit}
    if (hCheckDigit = 'X') then
      hCheckSum := 10
    else 
      Val(hCheckDigit, hCheckSum, Err);
      {Iterate through ISBN remainder, applying decode
      algorithm}
    Cnt := 1;
    for i := 1 to 12 do
    begin
      {Act only if current character is between "0" and "9"
      to exclude hyphens}
      if (Pos(hNumber[i], '0123456789') > 0) then
      begin
        Val(hNumber[i], hCheckValue, Err);
        {Algorithm for each character in ISBN remainder, Cnt
        is the nth character so processed}
        hCheckSum := hCheckSum + hCheckValue * (11 - Cnt);
        Inc(Cnt);
      end;
    end;
    {Verify final value is evenly divisible by 11}
    if (hCheckSum mod 11 = 0) then 
      Result := true
    else 
      Result := false;
  end;
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Visible:=ValidISBN(Edit1.Text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure TForm1.Btn_PruefenClick(Sender: TObject);
var
  ISBN: String;
  ISBNwert, ISBNindex, Pruefsumme, Faktor: Integer;
begin
  ISBN := Edit1.Text;
    try
      Faktor := 10;
      ISBNindex := 1;
      Pruefsumme := 0;

      repeat
        ISBNwert := StrToInt(copy(ISBN, ISBNindex, 1));
        Pruefsumme := Pruefsumme + ISBNwert * Faktor;
        Dec(Faktor);
        Inc(ISBNindex);
      until
        Faktor = 1;

      if (copy(ISBN, ISBNindex, 1) = 'X') or (copy(ISBN, ISBNindex, 1) = 'x') then
        begin
          Pruefsumme := Pruefsumme + 10;
        end
      else
        begin
          Pruefsumme := Pruefsumme + StrToInt(copy(ISBN, ISBNindex, 1));
        end;

      if Pruefsumme mod 11 = 0 then
        begin
          Label2.Caption := 'ISBN stimmt';
        end
      else
        begin
          Label2.Caption := 'ISBN ist falsch';
        end;
    except
      MessageDlg('Fehler!', mtError, [mbOk], 0);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:

function ValidateISBN(ISBN: String): String;
var
  Index: Integer;
begin
  try
    Index := 1;

    repeat
      if (ISBN[Index] = '-') or (ISBN[Index] = ' ') then
        begin
          Inc(Index);
        end
      else
        begin
          Result := Result + ISBN[Index];
          Inc(Index);
        end;
      until
        Index > Length(ISBN);

  except
    MessageDlg('Konvertierungsfehler!', mtError, [mbOk], 0);
  end;
end;

function ISBNPruefen(ISBN: String): String;
var
  ValidISBN: String;
  ISBNwert, ISBNindex, Pruefsumme, Faktor: Integer;
begin
  try
    ValidISBN := ValidateISBN(ISBN);
    if Length(ValidISBN) = 10 then
      begin
        Faktor := 10;
        ISBNindex := 1;
        Pruefsumme := 0;

        repeat
          ISBNwert := StrToInt(copy(ValidISBN, ISBNindex, 1));
          Pruefsumme := Pruefsumme + ISBNwert * Faktor;
          Dec(Faktor);
          Inc(ISBNindex);
        until
          Faktor = 1;

        if (copy(ValidISBN, ISBNindex, 1) = 'X') or (copy(ValidISBN, ISBNindex, 1) = 'x') then
          begin
            Pruefsumme := Pruefsumme + 10;
          end
        else
          begin
            Pruefsumme := Pruefsumme + StrToInt(copy(ValidISBN, ISBNindex, 1));
          end;

        if Pruefsumme mod 11 = 0 then
          begin
            Result := 'ISBN stimmt';
          end
        else
          begin
            Result := 'ISBN ist falsch';
          end;
      end
    else
      begin
        Result := 'ISBN hat falsche Größe';
      end;
  except
    MessageDlg('Prueffehler!', mtError, [mbOk], 0);
  end;
end;

procedure TForm1.Btn_PruefenClick(Sender: TObject);
begin
  Label2.Caption := ISBNPruefen(Edt_ISBN.Text);
end;

procedure TForm1.Edt_ISBNKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9', #8, #32, #45: ;
  else
    Key := #0;
  end;
end;