SOCKET发送数据

Question

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） 放在两个事件里  就  能收到 发送信息
这是为什么？？？？

Answer 1

Sleep(10000);
换成
for i:=0 to 100 do begin
  Application.ProcessMessages;
  Sleep(100);
end;
就行了,但是这只是为了解决问题而解决问题,而且是很不好的方法.
建议事件中处理