1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button10Click(Sender: TObject);
var stufe,metall,kristall,deuterium : real;
begin
stufe := strtofloat (edit10.text);
if RadioButton5.checked = true then
    metall := (power(1.5,stufe)*40);
  if RadioButton5.checked = true then
    kristall := (power(1.5,stufe)*10);
if Radiobutton6.Checked = true then
    metall := (power(1.6,stufe)*30);
  if RadioButton6.checked = true then
    kristall := (power(1.6,stufe)*15);
if Radiobutton7.checked = true then
    metall := (power(1.5,stufe)*150);
  if RadioButton7.checked = true then
    kristall := (power(1.5,stufe)*50);

edit7.text := floattostr (trunc(metall));
edit8.Text := floattostr (trunc(kristall));
edit9.Text := floattostr (trunc(deuterium))
end;                    

1:
2:

if RadioButton5.Checked then
  ...                    

1:
2:
3:

metall := (power(1.5,stufe)*40);
// besser:
metall := Power(1.5, stufe) * 40;                    

1:
2:
3:
4:
5:

if a then
begin
  ...
  ...
end;                    

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

program Project3;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.