假定有一批TRzCheckBox控件，控件名从Chk_Bit0 ... Chk_Bit19, 想要将其Enabled属性全部改为 True，则可以采用如下形式快速实现。
Uses Classes；
for i := 0 to 19 do
TRzCheckBox(FindComponent(‘Chk_Bit‘+ IntToStr(i))).Enabled := True;
如果TRzCheckBox控件名称没有规律，但均包含在控件TGroupBox中，则可以采用如下方式实现。
for i:=0 to GBox_RStatus.ControlCount-1 do
if GBox_RStatus.Controls[i] is TRzCheckBox then
(GBox_RStatus.Controls[i] as TRzCheckBox).Enabled := True;
转载