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

for j:=1 to Form.ComponentCount - 1 do
begin
  begin
    komponente := Form.Components[j];
      if (komponente is TCheckBox) then
        (komponente as TCheckBox).Checked := true;
        //TCheckbox(komponente).Checked := true; //<-- das klappt auch nicht :(
    end;
end;					

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

var
  proc : TNotifyEvent;
begin
  //und dann in der Schleife
  proc:=TCheckBox(komponente).OnClick;
  TCheckBox(komponente).OnClick:=nil;
  //virtueller Klick hier
  TCheckBox(komponente).OnClick:=proc;					

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

var
  aOldOnClick: TNotifyEvent;

for j := 0 to Form.ComponentCount - 1 do
begin
  komponente := Form.Components[j];
  if (komponente is TCheckBox) then
    // ein Typecast per as ist überflüssig, da wir ja schon selbst per is geprüft haben!
    with TCheckBox(komponente) do
    begin
      aOldOnClick := OnClick;
      OnClick := nil;
      Checked := True;
      OnClick := aOldOnClick;
    end;
  end;
end;					

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

procedure SetCheckBox(CheckBox: TCheckBox; Checked: boolean);
var
 Temp: TNotifyEvent;
begin
 Temp := CheckBox.OnClick;
 CheckBox.OnClick := nil;

 CheckBox.Checked := Checked;

 CheckBox.OnClick := Temp;
end;