Delphi 7: BMI programmierung

[TechnikerHC]

hi!
ich hab das so gelöst is ganz einfach:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
Var
m, h, B:real;


begin
m:=strtofloat(Edit1.text);
h:=strtofloat(Edit2.text);

B:=m/sqr(h);
if B<20
  then label4.Caption:='Untergewicht'
  else
    begin
      if B>25
        then label4.caption:='Übergewicht'
        else label4.caption:='Normalgewicht'
      end;


Edit3.Text:=floattostr(B);
end;

cheers

ps. das programm is jetzte nur für männer...wenn du das für beide geschlechter ham willst musst du noch be combobox mit reinmachen