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

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