1:
2:
3:
4:
5:
6:
7:
8:

var
i:Integer;
begin
if CheckBox1.Checked=true then
  begin
  i:=i+1;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
i:Integer;
begin
i:=0;
if CheckBox1.Checked=true OR (Checkbox2.Checked=true) then //Also eig. nur des^^
  begin
  i:=i+1;
  Label1.Caption:= IntToStr(i);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Procedure TMyForm.CheckBoxClick (Sender : TObject);
Begin
  Case TCheckBox (Sender).Tag of
    1 : A := A + 1;
    2 : B := B + 1;
    3 : C := C + 1;
    4 : D := D + 1;
    5 : E := E + 1;
    6 : F := F + 1;
  End;
End;					

1:
2:
3:
4:
5:
6:
7:

Procedure TMyForm.CheckBoxClick (Sender : TObject);
Var
  i  : Integer;
Begin
  i := TCheckBox (Sender).Tag;
  MyArray[i] := MyArray[i] + 1;
End;					

1:

CheckBox.Tag := 10000 * VariablenIndex + Zähler;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Procedure TMyForm.CheckBoxClick (Sender : TObject);
Var
  i,d  : Integer;
Begin
  i := TCheckBox (Sender).Tag;
  d := i mod 10000;
  i := i div 10000;
  MyArray[i] := MyArray[i] + d;
End;					

1:
2:
3:
4:
5:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Counter :=0;                         // das muß eingetragen werden. Startwert der Variablen
   Edit1.Text:=IntToStr(Counter);       // das auch, damit ich den Wert der Variablen seh, 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.CheckBox1Click(Sender: TObject); // Das Click-Ereignis auf die Checkbox
                                                  // Sender ist das Objekt, welches dieses Ereignis auslöst
begin                                             // hiernach muß ich meinen Code eintragen
  if Sender is TCheckbox then                     // Hier frage ich ab, ob das Ereignis von einer Checkbox ist
  begin
    if (Sender as TCheckbox).Checked  then Counter:=Counter+(Sender as TCheckbox).Tag // und addiere den Wert in Tag
    else Counter:=Counter-(Sender as TCheckbox).Tag;                                  // oder subtrahiere 
  end;
   Edit1.Text:=IntToStr(Counter);                 // und schreibe den Wert in das Editfeld zur Ansicht.
end;					

1:
2:
3:

var
  Form1: TForm1;       // das steht bereits im Code
  Counter : Integer;   // hier definierst du deine Variable					

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

procedure TForm1.Button1Click(Sender: TObject);

var
  Chk: TCheckbox;
  i: integer;
  counter: integer;

begin
  for i := 1 to 4 do
  begin
    Chk := TCheckbox(FindComponent('Checkbox' + InttoStr(i)));
    if Chk.Checked then
      Counter := Counter + Chk.Tag
    else Counter := Counter - Chk.Tag;
  end;

Edit1.Text:=InttoStr(Counter);

end;					

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

procedure TForm1.Button1Click(Sender: TObject); // Rechenbutton

var
  Chk: TCheckbox;
  n, i, d: integer;
  ChArray: array[1..5] of Integer;

begin
  for n := 1 to 4 do
  begin
    Chk := TCheckbox(FindComponent('Checkbox' + IntToStr(n)));
    if Chk.Checked then
    i := TCheckBox(FindComponent('Checkbox' + IntToStr(n))).Tag;
    d := i mod 100;
    i := i div 100;
    ChArray[i] := ChArray[i] + d;
  end;
end;