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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

var
  Form1: TForm1;
  Groesse, Gewicht, BMI, Sollgew, DiffGew : real;
implementation

{$R *.dfm}

procedure TForm1.B_berechnungClick(Sender: TObject);
begin
//Eingabe
Groesse := StrToFloat(E_koerpergroesse.text);
Gewicht := StrToFloat(E_gewicht.text);
BMI := Gewicht / Groesse * Groesse;

//Verarbeitung
if Form1.RadioGroup1.itemindex = 0
  then begin
     if BMI<= 19
        then begin
            BMI := Gewicht / Groesse * Groesse;
            Sollgew := 19 * Groesse * Groesse;
            Diffgew := Sollgew - Gewicht;
            //Diffgew + 'Sie müssen zunehmen';
        end;
  end
          else begin
            if BMI <= 24
              then begin
                //BMI + 'Sie haben Normalgewicht';
                  BMI := Gewicht / Groesse * Groesse;
              end

              else begin
                  if BMI >= 24
                     then begin
                      //BMI + 'Sie haben Übergewicht';
                        BMI := Gewicht / Groesse * Groesse;
                        Sollgew := 24 * Groesse * Groesse;
                        Diffgew := Gewicht - Sollgew;
                      //Diffgew + 'Sie müssen abnehmen';
                     end;

              end;
//Ausgabe
P_bmi.caption := FloatToStr(Sollgew);
P_differenz.caption := FloatToStr(DiffGew);
E_koerpergroesse.Text := FloatToStr(Groesse);
E_gewicht.text := FloatToStr(gewicht);					

1:

<span class="inlineSyntax"><span class="codecomment">{PROTECTTAG1a854cfe98e8155cd2f775e36ef003a4}</span></span>					

1:

var Test: integer;