hInet := InternetOpen('Delphi',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
      hFile := InternetConnect(
                hInet,
                'localhost',
                INTERNET_DEFAULT_HTTP_PORT,
                nil,nil,
                INTERNET_SERVICE_HTTP,
                0,
                1);
      hRequest := HttpOpenRequest(
                    hFile,
                    'POST',
                    'test.php',
                    nil,
                    nil,
                    nil,
                    INTERNET_FLAG_NO_CACHE_WRITE,
                    1);
      bSend := HttpSendRequest(hRequest, nil,0, nil,0);
      InternetReadFile(hRequest, @Buffer, 4, BufferLen);