form create  事件 里 放入下面的代码 

Set8087CW(Longword($133f));