كار گروهي بر روي كنترلهاي هم نوع

[Borland-Delphi7]

با سلام
من در برنامه ام 50 عدد checkbox با نام هاي chk1 تا chk50 دارم حال ميخوام در يك حلقه هر كدام كه chek خورده بود رو بفهمم و شماره آن را ثبت كنم (نميخوام از 50 if استفاده كنم ) آيا راهكردي براي اين كار وجود داره تو سايت جستجو زدم من كه نديدم.
ممنون ميشم اگر اساتيد سريع جوابمو بدن

[merced]

var i : Integer ;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TCheckBox then
if TCheckBox(Components[i]).Checked then
AddToYourList( TCheckBox(Components[i]).Tag) ;
end;

[ghabil]

چرا از یک TCheckListBox استفاده نمیکنی خب؟