Errror E2029

type
  TFINode = (FI526A, FI528A, FI544A, FI529A, FI516A, FI552A, FI572A, FI551A, FI510A, FI550A, FI503A, FI548A, FI505A, FI530A, FI599A, DmeErrorMessage);

function TCustomsExportMessageHandler.GetExportTypeAndMessageId(const aDocument: string; out aMessageType: string; out aMessageId: string): Boolean;
var
  vDoc: XMLIntf.IXmlDocument;
  sNode: string;
  FINode: TFINode;
begin
  Result := true;
  vDoc := NewXmlDocument;
  vDoc.Version := '1.0';
  vDoc.Encoding := 'UTF-8';
  vDoc.LoadFromXml(aDocument);
  for FINode := Low(TFINode) to High(TFINode) do
  begin
    sNode := TRttiEnumerationType.GetName<TFINode>(FINode);
    if Assigned(vDoc.ChildNodes.FindNode(sNode)) then
    begin
      if FINode = FI526A then   // Error E2029
      begin
//        aMessageType := 'EXPREG';
//        aMessageid := vDoc.ChildNodes.FindNode('FI526A').ChildNodes.FindNode('Identification').Text;
      end;
    end;
  end;
end;