SOCKET发送数据

var tempSocket:TClientSocket;
begin
  tempSocket:=TClientSocket.Create(nil);
  with tempSocket do
  begin
    Close;
    Address:='127.0.0.1';
    Port:=5000;
    Active:=True;
    Sleep(10000);
    Socket.SendText('123123');
  end;
end;

SERVER端 能收到连接信息，但是接收不到发送信息；

但是把连接 与 发送（也是动态创建的TClientSocket） 放在两个事件里 就 能收到 发送信息
这是为什么？？？？
[解决办法]
Sleep(10000);
换成
for i:=0 to 100 do begin
Application.ProcessMessages;
Sleep(100);
end;
就行了,但是这只是为了解决问题而解决问题,而且是很不好的方法.
建议事件中处理