1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var
i: integer;
aktgroesse:         integer;
groesse:            integer;

begin
groesse:=strtoin(label9.caption);
aktgroesse:=0;
i:=7;
scheibe[i]:=power(2,i);
repeat
aktgroesse:=aktgroesse+scheibe[i];
if groesse<aktgroesse
then aktgroesse:=aktgroesse-scheibe[i];
dec[i];
until
i<0;
ok:=groesse>aktgroesse
if ok then
case i of
7:DBcheckbox1.checked:=true;
      6:DBcheckbox2.checked:=true;
      5:DBcheckbox3.checked:=true;
      4:DBcheckbox4.checked:=true;
      3:DBcheckbox5.checked:=true;
      2:DBcheckbox6.checked:=true;
      1:DBcheckbox7.checked:=true;
      0:DBcheckbox8.checked:=true;
.
..

......
end;					

1:

dec(i);					

1:

scheibe.Height					

1:
2:
3:
4:

groesse:=0;
for i:=1 to 10 do begin
  groesse:=groesse+(FindComponent('Scheibe'+IntToStr(i)) as TShape).Height;
end;