A mi me genera esto:
Código Delphi
[-]
registroBean = class;
return = class;
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.