在线程中如何使用TClientSocket组件并自动检测该组件的事件？
我想在一个线程中动态创建一个TClientSocket组件，并要求该组件能够自动检测Socket事件（例如OnRead、OnError），如何实现？

------解决方案--------------------
先自定义响应事件的过程 
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); 
然后再线程初始化的时候 
ClientSocket1 := TClientSocket.Create(nil); 
ClientSocket1.onread := ClientSocket1Read;