procedure TForm1.Button1Click(Sender: TObject);
var
  xml607: IXMLAccept_notification;
begin
...
  //строка ниже вызывает ошибку
  xml607 := Loadaccept_notification('607_01.xml');
...
end;

<?xml version="1.0" encoding="UTF-8"?>
<documents session_ui="4Aa246a6-D7e2-2465-a056-0234554369a3" version="1.34" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
	<accept_notification action_id="607">
		<subject_id>19527410000063</subject_id>
		<counterparty_id>19799910034716</counterparty_id>
		<operation_date>2017-05-10T15:06:00+05:00</operation_date>
		<order_details>		
				<sgtin>7517003651019575FFBRHCS96LF</sgtin>		
				<sgtin>8767006421011245FFBRHCS96LF</sgtin>		
				<sgtin>6967741261369175FFBRHCS96LF</sgtin>		
				<sgtin>1397014766685175FFBRHCS96LF</sgtin>		
				<sgtin>5498621261015175FFBRHCS96LF</sgtin>		
		</order_details>
	</accept_notification>
</documents>

{**************************************************************************************************}
{                                                                                                  }
{                                         XML Data Binding                                         }
{                                                                                                  }
{         Generated on: 07.04.2020 22:09:25                                                        }
{       Generated from: C:\Working Projects\RusSM\MDLPProject\TestXML\accept_notification607.xsd   }
{                                                                                                  }
{**************************************************************************************************}

unit accept_notification607;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ Forward Decls }

  IXMLAccept_notification = interface;
  IXMLOrder_details = interface;
  IXMLSign_sgtin_typeList = interface;
  IXMLSscc_typeList = interface;

{ IXMLAccept_notification }

  IXMLAccept_notification = interface(IXMLNode)
    ['{FB9FC79A-F295-43EA-8220-91CFBEC422A0}']
    { Property Accessors }
    function Get_Action_id: Integer;
    function Get_Subject_id: WideString;
    function Get_Counterparty_id: WideString;
    function Get_Operation_date: WideString;
    function Get_Confirm_paused: Boolean;
    function Get_Order_details: IXMLOrder_details;
    procedure Set_Action_id(Value: Integer);
    procedure Set_Subject_id(Value: WideString);
    procedure Set_Counterparty_id(Value: WideString);
    procedure Set_Operation_date(Value: WideString);
    procedure Set_Confirm_paused(Value: Boolean);
    { Methods & Properties }
    property Action_id: Integer read Get_Action_id write Set_Action_id;
    property Subject_id: WideString read Get_Subject_id write Set_Subject_id;
    property Counterparty_id: WideString read Get_Counterparty_id write Set_Counterparty_id;
    property Operation_date: WideString read Get_Operation_date write Set_Operation_date;
    property Confirm_paused: Boolean read Get_Confirm_paused write Set_Confirm_paused;
    property Order_details: IXMLOrder_details read Get_Order_details;
  end;

{ IXMLOrder_details }

  IXMLOrder_details = interface(IXMLNode)
    ['{98159A3B-EBF0-4336-9941-6C7B1B719C33}']
    { Property Accessors }
    function Get_Sgtin: IXMLSign_sgtin_typeList;
    function Get_Sscc: IXMLSscc_typeList;
    { Methods & Properties }
    property Sgtin: IXMLSign_sgtin_typeList read Get_Sgtin;
    property Sscc: IXMLSscc_typeList read Get_Sscc;
  end;

{ IXMLSign_sgtin_typeList }

  IXMLSign_sgtin_typeList = interface(IXMLNodeCollection)
    ['{E7F4A50C-675C-487C-BD5A-7334D67442F3}']
    { Methods & Properties }
    function Add(const Value: WideString): IXMLNode;
    function Insert(const Index: Integer; const Value: WideString): IXMLNode;
    function Get_Item(Index: Integer): WideString;
    property Items[Index: Integer]: WideString read Get_Item; default;
  end;

{ IXMLSscc_typeList }

  IXMLSscc_typeList = interface(IXMLNodeCollection)
    ['{95D16471-9ABF-4A73-AE45-5B4D35AAEB1C}']
    { Methods & Properties }
    function Add(const Value: WideString): IXMLNode;
    function Insert(const Index: Integer; const Value: WideString): IXMLNode;
    function Get_Item(Index: Integer): WideString;
    property Items[Index: Integer]: WideString read Get_Item; default;
  end;

{ Forward Decls }

  TXMLAccept_notification = class;
  TXMLOrder_details = class;
  TXMLSign_sgtin_typeList = class;
  TXMLSscc_typeList = class;

{ TXMLAccept_notification }

  TXMLAccept_notification = class(TXMLNode, IXMLAccept_notification)
  protected
    { IXMLAccept_notification }
    function Get_Action_id: Integer;
    function Get_Subject_id: WideString;
    function Get_Counterparty_id: WideString;
    function Get_Operation_date: WideString;
    function Get_Confirm_paused: Boolean;
    function Get_Order_details: IXMLOrder_details;
    procedure Set_Action_id(Value: Integer);
    procedure Set_Subject_id(Value: WideString);
    procedure Set_Counterparty_id(Value: WideString);
    procedure Set_Operation_date(Value: WideString);
    procedure Set_Confirm_paused(Value: Boolean);
  public
    procedure AfterConstruction; override;
  end;

{ TXMLOrder_details }

  TXMLOrder_details = class(TXMLNode, IXMLOrder_details)
  private
    FSgtin: IXMLSign_sgtin_typeList;
    FSscc: IXMLSscc_typeList;
  protected
    { IXMLOrder_details }
    function Get_Sgtin: IXMLSign_sgtin_typeList;
    function Get_Sscc: IXMLSscc_typeList;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLSign_sgtin_typeList }

  TXMLSign_sgtin_typeList = class(TXMLNodeCollection, IXMLSign_sgtin_typeList)
  protected
    { IXMLSign_sgtin_typeList }
    function Add(const Value: WideString): IXMLNode;
    function Insert(const Index: Integer; const Value: WideString): IXMLNode;
    function Get_Item(Index: Integer): WideString;
  end;

{ TXMLSscc_typeList }

  TXMLSscc_typeList = class(TXMLNodeCollection, IXMLSscc_typeList)
  protected
    { IXMLSscc_typeList }
    function Add(const Value: WideString): IXMLNode;
    function Insert(const Index: Integer; const Value: WideString): IXMLNode;
    function Get_Item(Index: Integer): WideString;
  end;

{ Global Functions }

function Getaccept_notification(Doc: IXMLDocument): IXMLAccept_notification;
function Loadaccept_notification(const FileName: WideString): IXMLAccept_notification;
function Newaccept_notification: IXMLAccept_notification;

const
  TargetNamespace = '';

implementation

{ Global Functions }

function Getaccept_notification(Doc: IXMLDocument): IXMLAccept_notification;
begin
  Result := Doc.GetDocBinding('accept_notification', TXMLAccept_notification, TargetNamespace) as IXMLAccept_notification;
end;

function Loadaccept_notification(const FileName: WideString): IXMLAccept_notification;
begin
  Result := LoadXMLDocument(FileName).GetDocBinding('accept_notification', TXMLAccept_notification, TargetNamespace) as IXMLAccept_notification;
end;

function Newaccept_notification: IXMLAccept_notification;
begin
  Result := NewXMLDocument.GetDocBinding('accept_notification', TXMLAccept_notification, TargetNamespace) as IXMLAccept_notification;
end;

{ TXMLAccept_notification }

procedure TXMLAccept_notification.AfterConstruction;
begin
  RegisterChildNode('order_details', TXMLOrder_details);
  inherited;
end;

function TXMLAccept_notification.Get_Action_id: Integer;
begin
  Result := AttributeNodes['action_id'].NodeValue;
end;

procedure TXMLAccept_notification.Set_Action_id(Value: Integer);
begin
  SetAttribute('action_id', Value);
end;

function TXMLAccept_notification.Get_Subject_id: WideString;
begin
  Result := ChildNodes['subject_id'].Text;
end;

procedure TXMLAccept_notification.Set_Subject_id(Value: WideString);
begin
  ChildNodes['subject_id'].NodeValue := Value;
end;

function TXMLAccept_notification.Get_Counterparty_id: WideString;
begin
  Result := ChildNodes['counterparty_id'].Text;
end;

procedure TXMLAccept_notification.Set_Counterparty_id(Value: WideString);
begin
  ChildNodes['counterparty_id'].NodeValue := Value;
end;

function TXMLAccept_notification.Get_Operation_date: WideString;
begin
  Result := ChildNodes['operation_date'].Text;
end;

procedure TXMLAccept_notification.Set_Operation_date(Value: WideString);
begin
  ChildNodes['operation_date'].NodeValue := Value;
end;

function TXMLAccept_notification.Get_Confirm_paused: Boolean;
begin
  Result := ChildNodes['confirm_paused'].NodeValue;
end;

procedure TXMLAccept_notification.Set_Confirm_paused(Value: Boolean);
begin
  ChildNodes['confirm_paused'].NodeValue := Value;
end;

function TXMLAccept_notification.Get_Order_details: IXMLOrder_details;
begin
  Result := ChildNodes['order_details'] as IXMLOrder_details;
end;

{ TXMLOrder_details }

procedure TXMLOrder_details.AfterConstruction;
begin
  FSgtin := CreateCollection(TXMLSign_sgtin_typeList, IXMLNode, 'sgtin') as IXMLSign_sgtin_typeList;
  FSscc := CreateCollection(TXMLSscc_typeList, IXMLNode, 'sscc') as IXMLSscc_typeList;
  inherited;
end;

function TXMLOrder_details.Get_Sgtin: IXMLSign_sgtin_typeList;
begin
  Result := FSgtin;
end;

function TXMLOrder_details.Get_Sscc: IXMLSscc_typeList;
begin
  Result := FSscc;
end;

{ TXMLSign_sgtin_typeList }

function TXMLSign_sgtin_typeList.Add(const Value: WideString): IXMLNode;
begin
  Result := AddItem(-1);
  Result.NodeValue := Value;
end;

function TXMLSign_sgtin_typeList.Insert(const Index: Integer; const Value: WideString): IXMLNode;
begin
  Result := AddItem(Index);
  Result.NodeValue := Value;
end;
function TXMLSign_sgtin_typeList.Get_Item(Index: Integer): WideString;
begin
  Result := List[Index].NodeValue;
end;

{ TXMLSscc_typeList }

function TXMLSscc_typeList.Add(const Value: WideString): IXMLNode;
begin
  Result := AddItem(-1);
  Result.NodeValue := Value;
end;

function TXMLSscc_typeList.Insert(const Index: Integer; const Value: WideString): IXMLNode;
begin
  Result := AddItem(Index);
  Result.NodeValue := Value;
end;
function TXMLSscc_typeList.Get_Item(Index: Integer): WideString;
begin
  Result := List[Index].NodeValue;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  xmldoc,xmldocspec: IXMLDocument;
  xml607: IXMLAccept_notification;
  i, j: integer;
  docstring, str: WideString;
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('607_01.xml');
  docstring := sl.Text;
  sl.Free;
  xmldoc := LoadXMLData(docstring);
  xmldoc.Active:=True;
  docstring:=xmldoc.DocumentElement.ChildNodes.FindNode('accept_notification').XML;
  xmldocspec := LoadXMLData(docstring);
  xmldocspec.Active:=True;
  xml607 := Getaccept_notification(xmldocspec);

  i := xml607.Order_details.Sgtin.Count;
  i := xml607.Order_details.Sscc.Count;
  for j := 0 to xml607.Order_details.Sgtin.Count - 1 do
  begin
    str := xml607.Order_details.Sgtin.Items[j];
  end;
  for j := 0 to xml607.Order_details.Sscc.Count - 1 do
  begin
    str := xml607.Order_details.Sscc.Items[j];
  end;
end;