SPCOMM 无法关机

打开spcomm.pas文件找到CommWndProc方法，补充红色部分代码

procedure TComm.CommWndProc( var msg: TMessage );
begin
    case msg.msg of
          PWM_GOTCOMMDATA:
          begin
              ReceiveData( PChar(msg.LParam), msg.WParam );
              LocalFree( msg.LParam )
          end;
          PWM_RECEIVEERROR:    ReceiveError( msg.LParam );
          PWM_MODEMSTATECHANGE:ModemStateChange( msg.LParam );
          PWM_REQUESTHANGUP:  RequestHangup;
          PWM_SENDDATAEMPTY:  _SendDataEmpty
    else
        with msg do
        Result := DefWindowProc(FHWnd, Msg, WParam, LParam); //响应WM_QUERYENDSESSION和WM_ENDSESSION消息
    end
end;