恳请高手指教，我在线等待；线程调用TWSOCKETSERVER控件事件的问题！

Question

我有个TWSOCKETSERVER的VCL地控件，在TWSOCKETSERVER的OnDataAvailable事件中，我定义了接收UDP数据包，并分析显示在界面上的方法，我的系统在不停地接收UDP的数据报，系统因为数据量大，而定制了响应；
于是我就做了一个简单的线程；TWSocketServer *wss;__fastcall TRealDataThread::TRealDataThread(bool CreateSuspended,TWSocketServer *Sendwss)
  : TThread(CreateSuspended)
{
  Priority = tpHighest;
  FreeOnTerminate = true;
  wss = Sendwss;
}
//---------------------------------------------------------------------------
void __fastcall TRealDataThread::Execute()
{
  wss->Proto= "udp";
   //这个方法就是让我的TWSOCKETSERVER开始接收数据
  //WSS就是TWSOCKETSERVER控件，里面已经有了接收数据的代码，不过是
  //通过指针传递过来的类，
  wss->Listen();   
  Suspend();
}可是 这样的线程好像没有左右，系统仍然会停止响应。我根本没有办法点击界面上的停止线程的按钮来，也就是说，我这个线程就停不下来了；我怎么能让我的程序不停止响应那；恳请高手指教，我在线等待；

Answer 1

不行，我改成了NORMAL也不行；
数据一多，系统一样停止响应的；
还有什么办法吗?

Answer 2

我的数据接收是放在一个控件里面的，在那个控件里完成数据的接收、分析、显示这些工作；其实如果能把数据接收、分析、显示的代码放到TRealDataThread::Execute()这个过程里面，系统应该就不会停止响应了；
可是关键是，我不知道怎么把接收UDP数据的代码不用控件去实现；有高手指点吗？