könt ihr mir sagen was an diesem bmi rechner (versuch :D) falsch ist ??

[hathor]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Groese,Gewicht,fehler : Integer;
     BMI : Extended;
     intBMI : Integer;
begin
//nur zum Testen
edgroese.Text:= '172'; //cm
edgewicht.text:= '74'; //kg
rgGeschlecht.ItemIndex:=0;
//
val(edgroese.Text,Groese,fehler);
val(edgewicht.text,Gewicht,fehler);
BMI:= (Gewicht /(Groese*Groese))*10000; //wegen cm-Eingabe
lblBMI.caption:= FloatToStrF(BMI, ffFixed, 4, 2);
intBMI:= Round(BMI);

if rgGeschlecht.ItemIndex = 0  //Berechnung Mann
then
case intBMI of
        16..19: pnlErgebnis.caption:= 'Untergewicht';
        20..25: pnlErgebnis.caption:='Normalgewicht';
        26..30: pnlErgebnis.caption:='Übergewicht';
        31..40: pnlErgebnis.caption:='Fettsack';
end
else
case intBMI of //Berechnung Frau
        15..18: pnlErgebnis.caption:= 'Untergewicht';
        19..24: pnlErgebnis.caption:='Normalgewicht';
        25..29: pnlErgebnis.caption:='Übergewicht';
        30..40: pnlErgebnis.caption:='Fettsack';
end;
end;