delphi 运行程序结束时提示错误 invalid pointer operation 怎么解决？

delphi 运行程序结束时提示错误 invalid pointer operation 怎么解决？百度了看有人说在应用程序的Project域的Uses子句第一个引用也加上ShareMem。最后编译，运行。。我按照这种方法在Uses子句的第一个引用加上ShareMem 再编译运行退出程序时还是提示错误 invalid pointer operation 请问该怎么办？