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

procedure TForm1.Button1Click(Sender: TObject);
var checkbox: array[1..20] of TCheckbox;
    i: integer;
begin
   for i:=1 to 20 do
   begin
     checkbox[i].checked:=true;
   end;
end;					

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

For i := 1 to 20 do begin
  CheckBox[i] := TCheckBox.Create(self);
  With CheckBox[i] do begin
    Parent := Form1; // bzw das Object, auf dem die Checkbox erscheinen soll
    Top := i*24;
    Left := 8;
    { eventuell noch weitere Eingenschaften einstellen... }
  end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  current: TCheckBox;
begin
  for i := 1 to 10 do
  begin
    case i of
      1: current := CheckBox1;
      2: current := CheckBox2;
      3: current := CheckBox3;
      4: current := CheckBox4;
      5: current := CheckBox5;
      6: current := CheckBox6;
      7: current := CheckBox7;
      8: current := CheckBox8;
      9: current := CheckBox9;
      10: current := CheckBox10;
    end;
    current.State := cbChecked;
  end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  current: TCheckBox;
begin
  for i := 1 to 10 do
  begin
  current := TCheckBox(FindComponent('CheckBox'+IntToStr(i)));
  current.State := cbChecked;
  end;
end;