1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TFRM_Euro.BTN_ResetClick(Sender: TObject);
begin
  EDT_Z1.Clear;
  EDT_Z2.Clear;
  EDT_Z3.Clear;
  EDT_Z4.Clear;
  EDT_Z5.Clear;
  EDT_Z6.Clear;
  EDT_Z7.Clear;
  EDT_Z8.Clear;
  EDT_Z9.Clear;
  EDT_Z10.Clear;
  EDT_Z11.Clear;
  EDT_Z12.Clear;
  EDT_Ausgabe.Clear;

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:

procedure TFRM_Euro.BTN_BerechnenClick(Sender: TObject);
var
   z1, z2, z3, z4, z5, z6, z7, z8, z9, z10, z11, z12 : longint;
   quer : integer;
   pz : integer;
begin
  quer := 0;
  z1 := StrToInt (LBL_Land.Caption);
  z2 := StrToInt (EDT_Z2.Text);
  z3 := StrToInt (EDT_Z3.Text);
  z4 := StrToInt (EDT_Z4.Text);
  z5 := StrToInt (EDT_Z5.Text);
  z6 := StrToInt (EDT_Z6.Text);
  z7 := StrToInt (EDT_Z7.Text);
  z8 := StrToInt (EDT_Z8.Text);
  z9 := StrToInt (EDT_Z9.Text);
  z10 := StrToInt (EDT_Z10.Text);
  z11 := StrToInt (EDT_Z11.Text);
  z12 := StrToInt (EDT_Z12.Text);
  pz := (z1+z2+z3+z4+z5+z6+z7+z8+z9+z10+z11+z12);
  repeat
    quer := quer + pz mod 10;
    pz  := pz div 10;
  until pz = 0;
  EDT_Ausgabe.Text := IntToStr (quer);
   if quer = 8 then begin
                       LBL_True.Caption := 'echt.';
                       LBL_True.Visible := true;
                    end
                else begin
                       LBL_True.Caption := 'gefälscht.';
                       LBL_True.Visible := true;
                     end;

end;                    

1:

LBL_True.caption := '';                    

1:

LBL_True.Caption := '';