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

begin
     for x:=1 to 15 do
     for i:=0 to 15 do
     begin
     if (checkbox[x].checked) and (checkbox[x+1].checked) and not (checkbox[x+2].checked)  then
        Nadelplan[i]:=75
        else if checkbox[x].checked and checkbox[x+2].checkedand then
             Nadelplan[i]:=150
             else if checkbox[x+1].checked and checkbox[x+2].checked and not checkbox[x].checked then
                     Nadelplan[i]:=75
                     else Nadelplan[i]:=0;
     end;					

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

Function  Tf_Rechte.FindSwitch(number:Integer):TCheckBox;
Var i:Integer;
Begin
  for i:=0 to Panel_daten.controlcount-1 do
    if (Panel_daten.controls[i] IS TcheckBox) And (Panel_daten.controls[i].Name = 'CheckBox'+IntToStr(Number)) Then
    begin
      result:=TcheckBox(Panel_daten.controls[i]);
      exit;
    end;
  result:=NIL;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Procedure Tf_Rechte.SetValues(Value:ShortString);
var help : TcheckBox;
    i    : Integer;
Begin
  for i:=1 to 20 Do Begin
    help:=FindSwitch(i);
    if help <> NIL Then
      help.checked:=Value[i]='1';
  end;
end;					

1:
2:

for i := 0 to 10 do
  if TCheckBox(FindComponent('CheckBox'+IntToStr(i))).Checked then [...]