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

Question

我现在遇到了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连接上之后，就立即发送一个数据。高手帮忙找一个办法吧。谢谢了！！！

Answer 1

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

Answer 2

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