更改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;