Hola.
Como menciona
Soa Pelaez, también se puede usar RTTI. Con la salvedad que debe verificarse si la propiedad sobre la que se va a aplicar el valor existe en el componente actual para evitar excepciones.
Código Delphi
[-]
...
implementation
uses TypInfo;
procedure TForm1.CheckOnOff(const aChecked: Boolean);
var
i: Integer;
begin
for i := 0 to ComponentCount-1 do
if Assigned(GetPropInfo(Components[i].ClassInfo, 'Checked')) then
SetOrdProp(Components[i], 'Checked', Integer(aChecked) );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CheckOnOff(not CheckBox1.Checked);
end;
Saludos