高分求教关于socket的问题？急！！！！！！！！ (100分)

在服务器端开辟一个普通线程，要求该线程在一个缓冲区内读取客户机发来的请求，
判断后做出应答发送到客户机。再读取下一个请求－－应答。采用阻塞方式。这个应该
如何做？服务器端的socket应该怎样用？一定要用OnGetThread事件吗？
因为我对具体细节不太清楚，例如要不要用到TServerClientThread，如果要应该在哪里用？
望各位高手指教！！

你可以先看一下delphi自带的线程的例子