Problem mit 2 Bedingungen in einer IF Schleife!

[freak4fun]

Hallo ,
ich hab auch mal ein wenig versucht. Bei mir funktioniert alles.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RGGender: TListBox;
    EHeight: TEdit;
    EWeight: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    IdealHigh: Real;
    IdealLow: Real;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  lMultiHigh,
  lMultiLow: Double;
begin
  Case RGGender.ItemIndex of
    0: begin
         lMultiHigh := 0.97;
         lMultiLow := 0.93;
       end;
    1: begin
         lMultiHigh := 0.92;
         lMultiLow := 0.88;
       end;
    else
      begin
        ShowMessage('Berechnung nicht möglich. (ItemIndex: '+ IntToStr(RGGender.ItemIndex) + ')');
        Exit;
      end;
  end;

  try
    IdealHigh := StrToFloat(EHeight.Text) - 100;
    IdealHigh := IdealHigh * lMultiHigh;
    IdealLow := StrToFloat(EHeight.Text) - 100;
    IdealLow := IdealLow * lMultiLow;
  except
    ShowMessage('Fehler! Bitte überprüfe deine Eingabe.');
    Exit;
  end;

  if IdealHigh < StrToFloat(EWeight.Text) then
    ShowMessage ('Sie haben Übergewicht!')
  else
    if IdealLow > StrToFloat(EWeight.Text) then
      ShowMessage ('Sie haben Untergewicht!')
    else
      ShowMessage ('Sie haben Idealgewicht!');
end;


end.

MfG
freak