为什么用 socket.send方法 不能向服务器发送 这个数据 没任何反映

Question

为什么用 socket.send方法  不能向服务器发送 这个数据     没任何反映 以下是代码      回答后 继续追分 
Function TForm1.CreateShellCode : String;
BeginResult :='gameid=6&name=6544645&ip=218.61.5.159&sdate=2008-04-25&hour=20&minute=00&QQ=5'+#13#10;
Result :=Result+'&addr=5&Service=1&xingzhi=5'+#13#10;
Result :=Result+'&homepage=5&download=5&btn=提交私服信息'+#13#10;
End;procedure TForm1.Button1Click(Sender: TObject);
Var
ShellCode: String;
PostPage : String;
begin
ClientSocket1.Close;
ClientSocket1.Host := 'www.mirdy.cn';
ClientSocket1.Port := 80;
//PostPage  := Trim(PostPageET.Text);
ShellCode := CreateShellCode;
SendData := 'POST /save.asp HTTP/1.1'+ #13#10;
SendData := SendData+'Content-Type: application/x-www-form-urlencoded'+#13#10;
SendData := SendData + 'Host: www.mirdy.cn' + #13#10;
SendData := SendData+'Content-Length: ' + IntToStr(length(shellcode)) + #13#10;
SendData := SendData+#13#10;
SendData := SendData+ShellCode + #13#10;
ClientSocket1.Open;
memo1.lines.add(SendData);
clientsocket1.Socket.SendText(SendData);
memo1.lines.add(clientsocket1.Socket.ReceiveText);

Answer 1

ClientSocket1.Open执行之后, 还没成功连接上服务器之前, 执行Socket.SendText(...)是会失败的。