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

if RadioButton6.checked = true then ;
    begin;
    metall := Power(1.5,stufe)*40;
    kristall := Power(1.5,stufe)*10;
        end;
if RadioButton7.checked = true then ;
    begin;
    metall := Power(1.6,stufe)*30;
    kristall := Power(1.6,stufe)*15;
    end;
edit7.text := inttostr (trunc(metall));
edit8.Text := inttostr (trunc(kristall));                    

1:
2:
3:

then ;
..
begin ;