InvRegistry.RegisterParamInfo(TypeInfo(IWebService), 'CheckId', 'id', '', '', IS_NLBL);

procedure TBusWebModule.WSDLHTMLPublishAfterPublishingWSDL(
  const WSDLDoc: IWSDLDocument);
begin

WSDLDocNew := TWSDLDocument.Create(ExtractFilePath(Vcl.Forms.Application.ExeName) + '\remoteservice.wsdl');

  WSDLDoc.Definition := WSDLDocNew.Definition;
  def := WSDLDoc.Definition;
  def.Services[0].Ports[0].ChildNodes[0].Attributes['location'] := 'http://localhost:8080/soap/IMyService';
  def.Services[0].Ports.Remove(def.Services[0].Ports[1]);
end;