如何在Delphi中使用xsd模式向SOAP请求插入值？

uses
  Soap.SOAPHTTPClient, MySoapService;

var
  SoapClient: TMySoapService;
  Request: MyRequestType;
  Response: MyResponseType;
begin
  // 创建SOAP客户端
  SoapClient := TMySoapService.Create(nil);
  try
    // 导入xsd模式
    SoapClient.WSDLLocation := 'http://example.com/MySoapService?wsdl';
    SoapClient.LoadWSDL;

    // 创建SOAP请求对象并设置属性值
    Request := MyRequestType.Create;
    Request.Value1 := 'Hello';
    Request.Value2 := 'World';

    try
      // 调用SOAP服务的方法，并传递SOAP请求对象
      Response := SoapClient.MyMethod(Request);

      try
        // 处理SOAP响应
        ShowMessage('Response: ' + Response.Result);
      finally
        Response.Free;
      end;
    finally
      Request.Free;
    end;
  finally
    SoapClient.Free;
  end;
end;