Socket端口的打开与关闭问题

Question

For I:=0 to 20 do 
begin
  ClientSocket1.Open;
  if not ClientSocket1.Active then Break;
  ClientSocket1.Socket.SendText('fafdfdsfdsa');
  ClientSocket1.Close;
end;
以上是我的问题的一个简单例子，我的问题是为什么在这个循环里面只能成功的打开
一次，也就是说这个Active 属性只有在第一次调用Open方法时才会为true，当I变成1的时候就为false了，有哪位高手能告诉我有什么办法能够处理，注：这个open和Close方法一定要在循环里面。

Answer 1

For I:=0 to 20 do 
begin
  ClientSocket1.Active := true;
  if not ClientSocket1.Active then Break;
  ClientSocket1.Socket.SendText('fafdfdsfdsa');
  ClientSocket1.Active := false;
end;

Answer 2

TClientSocket默认的是非阻塞模式，而网络操作要花时间的。不能简单的这样循环的打开连接，发送，关闭处理。