delphi 关闭无响应程序？

我的程序在停止响应的时候，用任务管理器结束进程无法结束，但是用任务管理器的结束任务可以关闭，也可以直接在任务栏右键点关闭关掉。程序停止响应的时候就相当于用od把程序挂起但是不运行时候的效果，不知道该怎么用delphi在外部关闭这个程序？请高手指点？