不知道这个有什么用
Set8087CW(Saved8087CW);帮助里是
  首部   procedure   Set8087CW(NewCW:   Word);   $[System   
  功能   改变8087的指令代码Default8087CW。   
  说明   ##   procedure   NumericExample;   
  ##   var   
  ##   Saved8087CW:   Word;   
  ##   begin   
  ##   Saved8087CW   :=   Default8087CW;   
  ##   Set8087CW($133f);   {   Disable   all   fpu   exceptions   }   
  ##   ThirdPartyRoutine;   
  ##   Set8087CW(Saved8087CW);   
  ##   end;