#108 SafeYield ERangeError

[Anonymous]

When closing my port on program exit, I get an Range check error in OOMisc.SafeYield.
Ther error happens in
SafeYield := MAKELONG(Msg.Message, Msg.hwnd);
where Msg.Message is 0x7E4189F0 and Msg.hWnd is 0x7E44048F

I am running Delphi 2009