我有5個CheckBox名稱為cb01,cb02,cb03,cb04,cb05及1個Button名稱為btn01
請問我要如何按下btn01後一次把我的5個CheckBox設為True也就是勾起來

in Button Click Event 

CheckBox1.Checked:=True;
CheckBox2.Checked:=True;
.....

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

procedure TForm1.btn01Click(Sender: TObject);
begin
cb01.Checked:=True;
cb02.Checked:=True;
cb03.Checked:=True;
cb04.Checked:=True;
cb05.Checked:=True;
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

我想指的是 可不可以用迴圈的方式把全部勾起來 因為我可能我100的項目 = ="
一行一行要打很久
===================引 用 文 章===================
procedure TForm1.btn01Click(Sender: TObject);
begin
? cb01.Checked:=True;
? cb02.Checked:=True;
? cb03.Checked:=True;
? cb04.Checked:=True;
? cb05.Checked:=True;
end;

100 個 checkbox ?
小弟會建議您重新思考程式設計的方式, 而不是使用 100 個 checkbox

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

Try to place all CheckBoxes into a panel or group and write the following code in Button click event

for i=0 to APanel.ComponentCount-1 do
if APanel.Components[i] is TCheckBox then
begin
(APanel.Components[i] as TCheckBox).Checked=True;
end;

panel or group or form inherit from TWinControl and owns a Components array
once you place any component into such component that can be a component container
the container will have it in the components array.

後記：我記得有Component可以直接作check list，那樣會比較好

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

var i:integer;
begin
for i:=1 to 5 do
begin
if findcomponent('cb' formatfloat('00',i))<>nil then
begin
TCheckBox(findcomponent('cb' formatfloat('00',i))).Checked:=true;
end;
end;
end;