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

[MuschBuschAffe]

Code:

procedure TForm1.btncloseClick(Sender: TObject);
begin
close;
end;

procedure TForm1.btnrechnenClick(Sender: TObject);
 var Groese,Gewicht,fehler : Integer;
     BMI : real;


begin
   val(edgroese.Text,Groese,fehler);
   val(edgewicht.text,Gewicht,fehler);
   BMI:= Gewicht/Groese*Groese;


if Form1.rgGeschlecht.ItemIndex = 0  //Berechnung Mann
              then
               case BMI of
        16..19: begin
                pnlErgebnis.caption:= 'Untergewicht'
                end;
        20..25: begin
                pnlErgebnis.caption:='Normalgewicht'
                end;
        26..30: begin
                pnlErgebnis.caption:='Übergewicht'
                end;
        31..40: begin
                pnlErgebnis.caption:='Fettsack'
                end;

               else
                    begin
         case BMI of  //Berechnung Frau
        15..18: begin
                pnlErgebnis.caption:= 'Untergewicht'
                end;
        19..24: begin
                pnlErgebnis.caption:='Normalgewicht'
                end;
        25..29: begin
                pnlErgebnis.caption:='Übergewicht'
                end;
        30..40: begin
                pnlErgebnis.caption:='Fettsack'
                end;

end;

end.

und wie kann ich denn die fehlermeldungen aus delphi kopieren ??