例如 
[code cpp]
CheckBox1->Checked=true;
CheckBox2->Checked=true;
CheckBox3->Checked=true;
CheckBox4->Checked=true;
CheckBox5->Checked=true;
CheckBox6->Checked=true;
CheckBox7->Checked=true;
CheckBox8->Checked=true;
CheckBox9->Checked=true;
CheckBox10->Checked=true;
CheckBox11->Checked=true;
CheckBox12->Checked=true;
CheckBox13->Checked=true;
CheckBox14->Checked=true;
CheckBox15->Checked=true;
CheckBox16->Checked=true;
CheckBox17->Checked=true;
[/code]

能否用個迴圈 把這個設定完呢!?

[code delphi]
procedure TForm1.Button2Click(Sender: TObject);
var
I: Integer;
O: TCheckBox;
begin
for I := 1 to 17 do//根據你的程式碼
begin
O := FindComponent('CheckBox' IntToStr(I)) as TCheckBox;
if O <> nil then O.Checked := True;
end;
end;
[/code]

相關學習建議:
(1)學習什麼是 Owner?
(2)Owner 如何利用ComponnetCount, Components,
來管理其下之元件(TComponent)
(3)學習什麼 是Parent?
(4)Parent 如何利用ControlCount, Controls,
來管理其下之顯示控制項(TControl)
(5)發問前, 多多爬文.... ^_^

編輯記錄

簡單的可以只用 FindComponent() 來完成
進一步可以用 TList 或是自行建立一個 指標陣列 來管理

[code cpp]
char *szName[] = {"CheckBox1", "CheckBox2", ..., "CheckBox17"};
for(int i = 0; i < 17; i)
{
((TCheckBox *)FindComponent(szName[i]))->Checked = true;
}

// 如果要管理，建立一個指標陣列
TCheckBox **CheckBoxArray = new TCheckBox * [17];
// 或是用 TList
TList *lstCheckBox = new TList;
for(int i = 0; i < 17; i)
{
// 指標陣列
CheckBoxArray[i] = (TCheckBox *)FindComponent(szName[i]);

// TList
lstCheckBox->Add(FindComponent(szName[i]));
}

[/code]

多謝了~~我會使用了  我再練習把這它放到一個List 去.

[code cpp]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TCheckBox *V;
for (int a=1;a<18;a )
{
aint=IntToStr(a);
STR= "CheckBox" aint;
V = ((TCheckBox*)FindComponent(STR)) ;
V->Checked=true;
}
}[/code]