ClientSocket发送数据的问题，急啊！

[yinweixian]

我是和硬件通讯，源程序如下：
rece:='';
ClientSocket1.Address:='192.168.2.1';
ClientSocket1.Port:=2001;
ClientSocket1.Open;
ClientSocket1.Socket.SendText('aaaaaa');
sleep(1000); // 为了等待返回的数据，时间足够长了。
rece:=ClientSocket1.Socket.ReceiveText; // 这里rece一直是空，根本收不到数据。
ClientSocket1.Close;
上面是收不到数据的程序，改成如下程序就能正确接收。

rece:='';
ClientSocket1.Address:='192.168.2.1';
ClientSocket1.Port:=2001;
ClientSocket1.Open;
ClientSocket1.Socket.SendText('aaaaaa');
sleep(1000);
showmessage('aaaa'); // 就加了一个弹出的对话框，而且内容什么随便写什么都没关系。
rece:=ClientSocket1.Socket.ReceiveText; // 这里rece就能正确收到数据。
ClientSocket1.Close;

我觉得好象是在发送的时候要触发一下，一定要点一下鼠标。真是奇怪了。因为我以前做是分开两个按钮做的，一个按钮是连接（也就是ClientSocket1.Open），一个按钮是发送，这样做就没有什么问题，收据全部都能正确发送和接收。现在需要要写在一起，竟然出错了，我现在中间是不能有对话框出现的，急啊！
麻烦各位看看应该怎么解决啊？

[xjjrocker]

可能定义的接收包太大，而且使用的是阻塞接收方式吧，接受包不够就不返回。
更改接受缓存大小试试。

[brightyang]

sleep久点试试

[xiaokexinger]

TClientSocket 应该有一个onReceive()事件吧, 分开处理 不可能收不到

[LittleLandlord]

ClientSocket1.Socket.ClientType :=ctBlocking;//改变为阻塞方式