Se trata de hacerlo en orden inverso.
Ir creando los objetos a medidas que los vas necesitando....
Código Delphi
[-]
var
ASuministroLRFacturasEmitidas:SuministroLRFacturasEmitidas;
ARegistroLRFacturasEmitidas:Array_Of_LRfacturasEmitidasType;
IDFact:IDFacturaExpedidaType;
IDEmisorFact:IDEmisorFactura3;
begin
try
SetLength(ARegistroLRFacturasEmitidas, 1);
IDEmisorFact := IDEmisorFactura3.Create();
IDEmisorFact.NIF := '12345678M';
IDFact := IDFacturaExpedidaType.Create();
IDFact.IDEmisorFactura := IDEmisorFact;
IDFact.NumSerieFacturaEmisor := 'Texto factura';
IDFact.NumSerieFacturaEmisorResumenFin := 'Num serie fact. ';
IDFact.FechaExpedicionFacturaEmisor := '31/12/2016';
ARegistroLRFacturasEmitidas[1].IDFactura := IDFact;
ARegistroLRFacturasEmitidas[1].FacturaExpedida := ...
Se me han adelantado...