#120 SafeYield ERangeError

[W Lin]

I put a TApdComPort in a TForm,I open and close my port ,just I do it,I get an Range check error in OOMisc.SafeYield.

Ther error happens in
SafeYield := MAKELONG(Msg.Message, Msg.hwnd);

My OS is XP SP2, and I'm running in Delphi 7.