Hi,
versuchs doch mal mit einer For - Schleife und FindComponent..
Bsp.
Delphi-Quellcode:
var
i, count: integer;
c: TComponent;
begin
for i := 0 to 9 do begin
c := FindComponent('CheckBox'+inttostr(i));
if (c as TCheckbox).Checked then
inc(count);
end;
ShowMessage('Es sind '+inttostr(count)+' CheckBoxen angeklickt worden');
end;
Musst den Code halt nur noch anpassen
Hoffe es ist das was du haben wolltest.
Mit freundlichen Grüßen
p0w3r5tr34m3r
// EDiT
- kleiner bugfix (Der Parameter CheckBox muss als String übergeben werden)