Как раскрыть сложный тип в Delphi WebService

У меня проблема с открытием класса DTO через SOAP WebService.

Мой класс выглядит так:

TKontrahent = class
public
    Imie : string;
    Nazwisko : string;
    Id : integer;
end; 

Вот код службы:

TKontrahentService = class(TInvokableClass, IKontrahentService)
public
    function Dodaj( kontrahnet : TKontrahent)  : integer; stdcall;
    function Aktualizuj ( kontrahent : TKontrahent) : integer; stdcall;
    function Usun ( kontrahent : TKontrahent) : integer; stdcall;
    function Nowy : TKontrahent; stdcall;
end;

И как этот тип публикуется в WSDL:

<types>
  <xs:schema targetNamespace="urn:Kontrahent" xmlns="urn:Kontrahent">
    <xs:complexType name="TKontrahent">
      <xs:sequence/>
    </xs:complexType>
  </xs:schema>
</types>

Буду благодарен за любые советы. Я не могу найти образец с более сложными типами. С наилучшими пожеланиями, krlm