1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
check_name : TCheckBox;
.
.
.

for i:=1 to 30 do
        begin
        check_name.Name:='checkbox'+inttostr(i);
        if check_name.Checked = true then
        s:='JA'
        else
        s:='NEIN';
        end;					

1:
2:
3:
4:
5:

for i:=1 to 30 do
begin
  if TCheckBox(FindComponent('checkbox'+IntToStr(i))).Checked then
    s:='JA' else s:='NEIN';
end; // for i					

1:
2:
3:
4:
5:
6:

s:='NEIN';   // vorbelegen, falls keiner angekreuzt ist
for i:=1 to 30 do
begin
  if TCheckBox(FindComponent('checkbox'+IntToStr(i))).Checked then
    s:='JA';
end; // for i