如何在线程内创建一个clientsocket控件,控件的事件应该怎么写(急)(200分)

大家好,
我在进行通信编程时,遇到这样一个问题,
我想在我的CLIENT端向多个SERVER端依次发送数据,于是我在循环中调用CLIENTSOCKET控件
并将动态的给他赋不同的SERVER端的IP地址,然后触发CLIENTSOCKET控件的CONNECT事件
将数据发送出去,可是这样做不能成功.所以我又想在循环中创建一个线程,在线程中动态的
创建一个CLIENTSOCKET控件,然后将IP地址和要发送的数据传送到该控件的CONNECT事件中
然后将数据发送出去,这样就可以避免在循环中不能使用CLIENTSOCKET控件的麻烦了,可是
又不知道该如何编写,请哪位帮帮忙,给我写个例程,参考一下! 我很急

大致代码如下：
Procedure some
var C:TClientSocket;
begin
.....
C:= TClientSocket.Create(Self);
///您可以使用C 这个ClientSocket对象了。
......
C.Destory ;//释放

.....
end;
请您快速给分，我需要快速得些分。

type
Tcc = class(Tclientsocket)
procedure CcConnect(Sender: TObject;Socket: TCustomWinSocket);
end;
procedure ccConnect(Sender: TObject;Socket: TCustomWinSocket);
begin
....
end;
调用
C:= TClientSocket.Create(Self);
事件触发：
c.onconnet:=ccConnect; //

c.destory;

接受答案了.