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;