请教：一个非常奇怪的 socket 问题，各位大哥帮我看看，谢谢！

Question

请教：
procedure TForm1.Button3Click(Sender: TObject);begin
      ClientSocket1.Socket.SendText('dsddfr'); 
end;可以把数据发到服务器而
procedure TForm1.Button2Click(Sender: TObject);
var
     socket1:TClientSocket;
begin
     socket1:=TClientSocket.Create(self);
     try
     socket1.Address:='192.168.0.118';
     socket1.Port:=2000;
     socket1.Open;
     socket1.Socket.SendText('hghghj');
     finally
     socket1.Close;
     FreeAndNil(socket1);
     end;end;却不能把数据发到服务器各位大哥，这是什么原因啊？谢谢！

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
     socket1:TClientSocket;
begin
     socket1:=TClientSocket.Create(self);
     try
     socket1.Address:='192.168.0.118';
     socket1.Port:=2000;
     socket1.Open;
     if   (socket1.Socket.Connected)  then
          begin
                showmessage('可以发数据了');
          end;
     socket1.Socket.SendText('hghghj');
     finally
     socket1.Close;
     FreeAndNil(socket1);
     end;end;
没有 show '可以发数据了'  说明 socket1 还没有连接上，是吗？
是不是要先 ClientSocket1.close; 
谢谢！