{
Set8087CW example
}
procedure NumericExample;
var
  Saved8087CW: Word;
begin
  Saved8087CW := Default8087CW;
  Set8087CW($133f); { Disable all fpu exceptions }
  ThirdPartyRoutine;
  Set8087CW(Saved8087CW);
end; 
