Problem mit 2 Bedingungen in einer IF Schleife!

[Eichhoernchen]

Dann werf ich einfach auch mal Kot in den Raum(ihh),
Ach ja: größe in cm und Gewicht in Kg angeben!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var idealhigh, ideallow, hight, weight : double;
    ausgabe : String;
begin
weight := StrToFloat(Weight.Text);
hight := StrToFloat(Height.Text);
if RadioGroup1.ItemIndex = 0
  then Begin
        IdealHigh:= height - 100;
        IdealHigh:= IdealHigh * 0.97;
        IdealLow:= height - 100;
        IdealLow:= IdealLow * 0.93;
       end
  else if RadioGroup1.ItemIndex = 1
         then Begin
               IdealHigh:= height - 100;
               IdealHigh:= IdealHigh * 0.92;
               IdealLow:= height - 100;
               IdealLow:= IdealLow * 0.88;
              end
         else Begin
               showmessage('Sie müssen ein Geschlecht wählen');
               exit;
              end;


if weight > IdealHigh
  then ausgabe := 'Sie haben Übergewicht! Gehen sie weniger zu MC Donalds'
  else if weight < IdealLow
         then ausgabe := 'Sie haben Untergewicht! Essen sie ruhig was!'
         else ausgabe := 'Sie haben Idealgewicht, also Spachteln was das Zeug hält!';

Showmessage(ausgabe);
end;