[Miguel Galarza]

Amigos del foro tengo este sig. problema: no puedo asignar valor a un Array en esta clase TRemotable, es tratando de acceder al WS de la Afip de Argentina para consumir el servicio de factura electronica, Estoy usando D7, parece una estupidez pero en verdad me tiene mal no poder resolverlo.
El esquema que tengo que enviar es el clasico de una facutura, cabecera y detalle precedido esto por por el nodo de autorizacion, el de autorizacion, la cabecera lo asigno pero ... cuando llego a el detalle me da error, supongo que la sintaxis es diferente en esta clase.

Código Delphi [-]
ClsBFERequest = class(TRemotable)
  private
    FId: Int64;
    FTipo_doc: Smallint;
    FNro_doc: Int64;
    FZona: Smallint;
    FTipo_cbte: Smallint;
    FPunto_vta: Integer;
    FCbte_nro: Int64;
    FImp_total: Double;
    FImp_tot_conc: Double;
    FImp_neto: Double;
    FImpto_liq: Double;
    FImpto_liq_rni: Double;
    FImp_op_ex: Double;
    FImp_perc: Double;
    FImp_iibb: Double;
    FImp_perc_mun: Double;
    FImp_internos: Double;
    FImp_moneda_Id: WideString;
    FImp_moneda_ctz: Double;
    FFecha_cbte: WideString;
    FItems: ArrayOfItem;
  public
    destructor Destroy; override;
  published
    property Id: Int64 read FId write FId;
    property Tipo_doc: Smallint read FTipo_doc write FTipo_doc;
    property Nro_doc: Int64 read FNro_doc write FNro_doc;
    property Zona: Smallint read FZona write FZona;
    property Tipo_cbte: Smallint read FTipo_cbte write FTipo_cbte;
    property Punto_vta: Integer read FPunto_vta write FPunto_vta;
    property Cbte_nro: Int64 read FCbte_nro write FCbte_nro;
    property Imp_total: Double read FImp_total write FImp_total;
    property Imp_tot_conc: Double read FImp_tot_conc write FImp_tot_conc;
    property Imp_neto: Double read FImp_neto write FImp_neto;
    property Impto_liq: Double read FImpto_liq write FImpto_liq;
    property Impto_liq_rni: Double read FImpto_liq_rni write FImpto_liq_rni;
    property Imp_op_ex: Double read FImp_op_ex write FImp_op_ex;
    property Imp_perc: Double read FImp_perc write FImp_perc;
    property Imp_iibb: Double read FImp_iibb write FImp_iibb;
    property Imp_perc_mun: Double read FImp_perc_mun write FImp_perc_mun;
    property Imp_internos: Double read FImp_internos write FImp_internos;
    property Imp_moneda_Id: WideString read FImp_moneda_Id write FImp_moneda_Id;
    property Imp_moneda_ctz: Double read FImp_moneda_ctz write FImp_moneda_ctz;
    property Fecha_cbte: WideString read FFecha_cbte write FFecha_cbte;
    property Items: ArrayOfItem read FItems write FItems;
  end;

  // ************************************************************************ //
  // Namespace : http://ar.gov.afip.dif.bfe/
  // ************************************************************************ //
  Item = class(TRemotable)
  private
    FPro_codigo_ncm: WideString;
    FPro_codigo_sec: WideString;
    FPro_ds: WideString;
    FPro_qty: Double;
    FPro_umed: Integer;
    FPro_precio_uni: Double;
    FImp_bonif: Double;
    FImp_total: Double;
    FIva_id: Smallint;
  published
    property Pro_codigo_ncm: WideString read FPro_codigo_ncm write FPro_codigo_ncm;
    property Pro_codigo_sec: WideString read FPro_codigo_sec write FPro_codigo_sec;
    property Pro_ds: WideString read FPro_ds write FPro_ds;
    property Pro_qty: Double read FPro_qty write FPro_qty;
    property Pro_umed: Integer read FPro_umed write FPro_umed;
    property Pro_precio_uni: Double read FPro_precio_uni write FPro_precio_uni;
    property Imp_bonif: Double read FImp_bonif write FImp_bonif;
    property Imp_total: Double read FImp_total write FImp_total;
    property Iva_id: Smallint read FIva_id write FIva_id;
  end;

  ArrayOfItem = array of Item;                  { "http://ar.gov.afip.dif.bfe/" }

Esto es parte de la unidad que me generó delphi al acceder al wsdl del WS, esto seria lo que yo deberia poder hacer.

Código Delphi [-]
procedure Tfrm_menu.Button3Click(Sender: TObject);
var
par4: ClsBFERequest;
par3: Item;
par: Arrayofitem;
begin
  GetMem(par,10*SizeOf(ClsBFERequest));
  par4.Items:=par;
//setlength(par,10);
///asi no funciona
  par[0].Pro_codigo_ncm:='esto';
///si fuera asi tampoco funciona
  par4.Items[0].Pro_codigo_ncm:='esto';
end;

El Error que me da es "Out of Memory" usando GetMem o Setlength y una excepcion en una direcc. de memoria si no se le asigna lugar a par.

Agradeceria cualquier ayuda de parte de la comunidad.