ISBN 10 / 13 Prüfen

[GhostOne]

Nein nur weiß ich nicht wenn ich ein MaskEdit Feld nehme wie ich dann mein ersten Quelltext
einbaue den der ist ja auf mehreren Edit Feldern aufgebaut.
Wenn MaskEdit Feld könnte ich auch locker Punkt 2 und 4 machen denn dann:
code=MaskEdit
if lenght(code) <> 13 oder 10 dann schreibe in Edit14.text Nicht Korrekt .....
else if lenght(code)= 13 or 10 dann schreibe in Edit14.text ISBN Korrekt.

Weiß ich denke komisch ^^

Punkt 1 ( funktioniert ) aber der Ansatz mit dem ganzen einzelnen Edit Feldern ist Wahrscheinlich mein Problem.
procedure TForm1.Button1Click(Sender: TObject);
var
X, zahl1, zahl2, zahl3, zahl4, zahl5,
zahl6, zahl7, zahl8, zahl9, zahl10, ergebnis, ziffer: Integer;
begin
zahl1 := StrToInt(Edit1.Text)*1;
zahl2 := StrToInt(Edit2.Text)*2;
zahl3 := StrToInt(Edit3.Text)*3;
zahl4 := StrToInt(Edit4.Text)*4;
zahl5 := StrToInt(Edit5.Text)*5;
zahl6 := StrToInt(Edit6.Text)*6;
zahl7 := StrToInt(Edit7.Text)*7;
zahl8 := StrToInt(Edit8.Text)*8;
zahl9 := StrToInt(Edit9.Text)*9;
ergebnis := zahl1 + zahl2 + zahl3 + zahl4+ zahl5 + zahl6 +
zahl7 + zahl8 + zahl9;
ziffer := ergebnis div 11;
zahl10 := ergebnis - ziffer * 11;
if zahl10 = 10 then zahl10:= X;
Edit14.Text := IntToStr(zahl10);