Web services DelphiWebService调用不并行

我开发了一个应用程序，它并行地通过TCP服务器获取消息，并从另一个Web服务器应用程序调用Web服务

我注意到webservice服务器以串行方式处理并行请求

为了应对这种情况，我强迫Web服务器延迟

我跟踪并发现webservice调用是由低级Delphi webserivce调用序列化调用并行进行的

我嗅探并发现只有一个连接被打开，HTTP请求在得到响应后被逐个发送

我的基本web服务调用如下

var  
  HTTPRIO: THTTPRIO;  
  WS: TelephoneDispachServerSoap;  
begin  
  try  
    HTTPRIO := THTTPRIO.Create(nil);  
    WS := GetTelephoneDispachServerSoap(false, '',HTTPRIO);  
    CoInitialize(nil);  
    r := WS.MaxMethod(10,20);  
  finally  
    CoUninitialize;  
  end;  
end;  

我应该如何并行发送webservice调用？

---

谢谢

其他代码是否在VCL主线程中执行某些操作，例如使用synchronize？来自回答：使用

OleCheck（CoInitializeEx（NIL，COINIT_多线程或COINIT_SPEED_OVER_内存））并使用try/except处理异常