HostName := 'http://127.0.0.1/RPC2';
 HTTP_Port := 7362;  
 hSession := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 hConnect := InternetConnect(hSession, PChar(HostName), HTTP_Port,
   nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
 hRequest := HttpOpenRequest(hConnect, PChar(RequestMethod),
     PChar(FileName), HTTP_VERSION, nil, @AcceptType, dwFlags, 0);
 SendReqestResult := HttpSendRequest(hRequest,
   'Content-Type: text/xml', 47, PChar(PostQuery),
     Length(PostQuery));