更改THttpClientSocket连接超时时间
THttpClientSocket连接超时时间默认是30秒，如果要设大点，可用下面的代码：
procedure TForm1.FormCreate(Sender: TObject);
begin
//fhttp := OpenHttp('127.0.0.1', '5566');
fhttp := THttpClientSocket.Create(50000);
fhttp.Open('127.0.0.1', '5566',cslTCP, 50000);
end;