异常显示在Memo1里，而不是弹出对话框

try



  except
    on E: Exception do
    begin
      OutResltMemo.Clear;
      OutResltMemo.Text := E.Message;
    end;
 end;