ClientSocket的问题，急需，请帮忙！！

[喜欢编程朋友]

我现在遇到了ClientSocket的一个问题，我想在ClientSocket连接上之后就随即发送一个命令，但是不知道把这个发送命令写到哪儿地方，怎样来实现。我发送后对方老是收不到，怎么回事。
下面是我的代码：
begin
str1:='192.168.1.252';
if trim(str1)<>'' then
begin
ClientSocket1.Close;
ClientSocket1.Host:= str1;
clientsocket1.Port:=12;//server port
ClientSocket1.ClientType := ctNonBlocking;
try
clientsocket1.open;
clientsocket1.Socket.SendText('命令数据');
except
end;
end;
但是clientsocket1.Socket.SendText('命令数据');这个数据对方总是收不到，如果将这个发送数据写到其他按钮事件里面对方就能收到数据，这种情况怎样来解决呀。
我现在就是想在Socket连接上之后，就立即发送一个数据。高手帮忙找一个办法吧。谢谢了！！！

[喜欢编程朋友]

还有没有其他的高见呀,现在实在很急的,请各位帮忙呀!

[喜欢编程朋友]

请各位高手帮忙呀！非常急需的！！

[halfdream]

设成阻塞方式。