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:
34:
35:

procedure TForm1.b_berechnenClick(Sender: TObject);
 var radius1, radius2, hoehe, seite, volumen, oberfl : extended;

begin
  if (tf_radius1.text = '') or
     (tf_radius2.text = '') or
     (tf_hoehe.text = '')   or
     (tf_seite.text = '')
     then showmessage('Alle Felder müssen ausgefüllt sein!')

     else
       if (strtofloat(tf_radius1.text) <= 0) or
          (strtofloat(tf_radius2.text) <= 0) or
          (strtofloat(tf_hoehe.text) <= 0)   or
          (strtofloat(tf_seite.text) <= 0)
       then showmessage('Alle Zahlen müssen > 0 sein.')

       else
          begin
           radius1 := strtofloat(tf_radius1.text);
           radius2 := strtofloat(tf_radius2.text);
           hoehe   := strtofloat(tf_hoehe.text);
           seite   := strtofloat(tf_hoehe.text);

             begin
              if sqr(seite) = sqr(radius2-radius1)+sqr(hoehe)
              then

              oberfl          := pi * (radius1*radius1 + radius2*radius2 + seite * (radius1 + radius2));
              volumen         := (pi/3) * hoehe * (radius1*radius1 + radius1 * radius2 + radius2*radius2);
              tf_oberfl.text  := floattostr(oberfl);
              tf_volumen.text := floattostr(volumen);
             end;
          end;
end;					

1:

oberfl := 0;					

1:

              tf_oberfl.text  := floattostr(oberfl);