求助:为什么出现异常?

我的目的是当按下SpeedButton3时,把LabeledEdit1中的数字转换成实数赋给fn,如果LabeledEdit1中不是数字,不能出现异常,而且fn=0,LabeledEdit1中显示为0,我的代码如下:
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
try
  fn:=strtofloat(form1.LabeledEdit1.Text);
except
  on econverterror do
   begin
    fn:=0;
    form1.LabeledEdit1.Text:='0';
   end;
end;
end;
但是当程序运行后,LabeledEdit1中如果不是数字时仍然出现了异常,不知道哪里错了.