[apicito]

A mi me genera esto:

Código Delphi [-]
  
registroBean         = class;                 { "http://services.xxxxx/"[GblCplx] }
return                 = class;                 { "http://services.xxxxx/"[Alias] }

  registroBean = class(TRemotable)
  private
    Fasunto: string;
    Fasunto_Specified: boolean;
    FcorreoElectronico: string;
    FcorreoElectronico_Specified: boolean;

y

Código Delphi [-]
Array_Of_registroBean = array of registroBean;

y

Código Delphi [-]
  ConsolidacionWS = interface(IInvokable)
  ['{8796BA36-EF66-FC3D-8199-9C6A7C27E916}']
    function  getEstado(const entidad: string): string; stdcall;
    function  getListaRegistros(const entidad: string): Array_Of_registroBean; stdcall;
    function  resetFechaRegistrosEntrada: string; stdcall;
  end;

function GetConsolidacionWS(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): ConsolidacionWS;

Te pego el código completo en un privado.