1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

                ServiceAdapter := THTTPRIO.Create( nil );
                ServiceAdapter.URL := defURL;
                ServiceAdapter.Converter.Options := [
                             soSendUntyped,
                             soSendMultiRefArray,
                             soTryAllSchema,
                             soRootRefNodesToBody,
                             soUTF8InHeader,
                             soCacheMimeResponse,
                             soUTF8EncodeXML
                  ];  
                // sevice ist eine geerbte Klasse von interface(IInvokable) 
                sevice := ServiceAdapter as Z_TRIM_INBOUND;

                // so und jetzt den Webservice aufrufen! (EX_TRIM_DATA = array of ZGS_TS)
                sevice.Z_TRIM_INBOUND( EX_TRIM_DATA );