دسترسی به خصوصیات یک checkbox

[sima_gh7]

من در یک حلقه for چند تا DBCheckBox ایجاد (creat) کردم ، می خوام بازدن یک دکمه چک کنم که کدوم یک از اون checkbox ها تیک خورده .
چطور می تونم به اون کامپوننت ها و خواص checked و text اونها دسترسی داشته باشم ؟

[vcldeveloper]

var
i : integer;
Text : string;
Checked : Boolean;
begin
with YourForm do
for i := 0 to ControlCount-1 do
if Controls[i] is TCheckBox then
begin
Text := TCheckBox(Controls[i]).Caption;
Checked := TCheckBox(Controls[i]).Checked;
end;
end;

[Naficy]

اگر از شیوه ای که حالا در تاپیک قبلی در جوابتان نوشتم )TComponentList( برای کارتان استفاده کنید، این مساله هم برایتان ساده می شه.