matematiksel karşılaştırma hatası

[emailx45]

object NumberBox1: TNumberBox
CurrencyString = '$'
Decimal = 6
---> Mode = nbmCurrency or nbmFloat
end
...
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click( Sender: TObject );
var
  dval: extended; // or Double
begin
  dval := extended(NumberBox1.ValueFloat);
  //
  Memo1.Lines.Add('====================');
  Memo1.Lines.Add(dval.ToString);
  //
  if dval < 2.40 then
    Memo1.Lines.Add( 'dval < 2.40')
  else if dval = 2.40 then
    Memo1.Lines.Add( 'dval = 2.40')
  else
    Memo1.Lines.Add( 'dval > 2.40');
end;

---

---