Ungewöhnliche ungültige Gleitkommaoperation

[Klaus01]

.. es tut mit leid, aber der code wirft keine Exception..

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  value: TDateTime;
  cmp: double;
  w8087: word;
begin
  try
    w8087 := get8087cw;
    value := strToFloat(Edit1.Text);
    cmp := 0.1;
    if value <= cmp then
      edit2.Text := 'less than 0.1 or equal to 0.1'
    else
      edit2.Text := DateTimeToStr(value);
  except
    on E:Exception do
      showMessage(E.Message);
  end;
end;

aber wenn Du schon den Übeltäter gefunden hast..

Grüße
Klaus