void __fastcall TForm1::Button1Click(TObject *Sender)
{
DWORD dwSize = 0;
  DWORD dwDownloaded = 0;
  LPSTR pszOutBuffer;
  BOOL  bResults = FALSE;
  HINTERNET  hSession = NULL,
                   hConnect = NULL,
	           hRequest = NULL;

  // Use WinHttpOpen to obtain a session handle.
  hSession = WinHttpOpen( L"WinHTTP Example/1.0",
                          WINHTTP_ACCESS_TYPE_DEFAULT_PROXY,
                          WINHTTP_NO_PROXY_NAME,
                          WINHTTP_NO_PROXY_BYPASS, 0 );

  // Specify an HTTP server.
  if( hSession )
	hConnect = WinHttpConnect( hSession, L"xn--80ajihiadw2acf5i.xn--p1ai",
							   INTERNET_DEFAULT_HTTP_PORT, 0 );

  // Create an HTTP request handle.
  if( hConnect )
	hRequest = WinHttpOpenRequest( hConnect, L"GET", L"test.php",
								   NULL, WINHTTP_NO_REFERER,
								   WINHTTP_DEFAULT_ACCEPT_TYPES, 0);
  // Send a request.
  if( hRequest )
	bResults = WinHttpSendRequest( hRequest,
								   WINHTTP_NO_ADDITIONAL_HEADERS, 0,
								   WINHTTP_NO_REQUEST_DATA, 0,
								   0, 0 );

  // End the request.
  if( bResults )
	bResults = WinHttpReceiveResponse( hRequest, NULL );

  // Keep checking for data until there is nothing left.
  if( bResults )
  {
	do
    {
      // Check for available data.
      dwSize = 0;
	  WinHttpQueryDataAvailable( hRequest, &dwSize );

      // Allocate space for the buffer.
      pszOutBuffer = new char[dwSize+1];
      if( !pszOutBuffer )
       dwSize=0;
      else
      {
        // Read the data.
		ZeroMemory( pszOutBuffer, dwSize+1 );

		WinHttpReadData( hRequest, (LPVOID)pszOutBuffer,  dwSize, &dwDownloaded);

		// Free the memory allocated to the buffer.
		if(dwSize)
 		  ShowMessage(AnsiString(pszOutBuffer));
		delete [] pszOutBuffer;
      }
    } while( dwSize > 0 );
  }

  // Close any open handles.
  if( hRequest ) WinHttpCloseHandle( hRequest );
  if( hConnect )  WinHttpCloseHandle( hConnect );
  if( hSession )  WinHttpCloseHandle( hSession );

}