Работа с XML в Builder

//---------------------------------------------------------------------------
#pragma hdrstop
#include "XmlReplace.h"
//---------------------------------------------------------------------------
char* XmlReplaceMemory(char* xml)
  {
  char* out_xml=NULL;
  int   i, j, n;
  bool  waitend;
 
  if ((xml!=NULL) && (strlen(xml)>0))
    {
    n=strlen(xml);
    out_xml=new char[n+1];
    i=0;
    j=0;
    waitend=false;
    while(i<n)
      {
      if ((i<n-1) &&  (xml[i]=='&') && (xml[i+1]=='#')) waitend=true;
      if (!waitend) { out_xml[j]=xml[i]; j++; }
        else { if (xml[i]==';') waitend=false; }
      i++;
      }
    out_xml[j]=0;
    }
  return out_xml;
  }
//---------------------------------------------------------------------------
bool  XmlReplaceFile(wchar_t* xmlfile)
  {
  bool   result=false;
  HANDLE FileHandle;
  DWORD  FileSize, Bytes;
  BYTE*  FileBody=NULL;
  BYTE*  FileBodyOut=NULL;
 
  FileHandle=CreateFile(xmlfile,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,0,NULL);
  if (FileHandle!=INVALID_HANDLE_VALUE)
    {
    FileSize=GetFileSize(FileHandle,NULL);
    if (FileSize>0)
      {
      FileBody=new BYTE[FileSize+1];
      ReadFile(FileHandle,FileBody,FileSize,&FileSize,NULL);
      FileBody[FileSize]=0;
      }
    CloseHandle(FileHandle);
    }
 
  if (FileBody!=NULL)
    {
    FileBodyOut=XmlReplaceMemory(FileBody);
    delete FileBody; FileBody=NULL;
    }
  if (FileBodyOut!=NULL)
    {
    FileHandle=CreateFile(xmlfile,GENERIC_WRITE,FILE_SHARE_READ,NULL,CREATE_ALWAYS,0,NULL);
    if (FileHandle!=INVALID_HANDLE_VALUE)
      {
      WriteFile(FileHandle,FileBodyOut,strlen(FileBodyOut),&Bytes,NULL);
      CloseHandle(FileHandle);
      result=true;
      }
    delete FileBodyOut; FileBodyOut=NULL;
    }
  return result;
  }
//---------------------------------------------------------------------------
#pragma package(smart_init)

//------------------------ Внешние функции ----------------------------
_di_IXMLNode GetNodeByName(IXMLNode *aNode, String aText)
{
   _di_IXMLNode Rez = NULL;
   if(CompareText(aNode->NodeName, aText) == 0) return aNode;
   if(aNode->ChildNodes == NULL) return Rez;
   for(int i = 0; i < aNode->ChildNodes->Count; i++) {
       return GetNodeByName(aNode->ChildNodes->Nodes[i], aText);
       if(aNode->ChildNodes == NULL) return Rez;
   }
}
//---------------------------------------------------------------------------
void GetList(TStringList *L, TFDQuery *Q)
{
   Q->First();
   while(!Q->Eof) {
       L->Add(Q->FieldByName("UN")->AsString);
       Q->Next();
   }
}
//---------------------------------------------------------------------------
bool Check(TStringList *L, String _un, String _dt, __int64 &i, TDateTime &dt)
{
//   return (L->IndexOf(_un) == -1) && (TryStrToInt64(_un, i)) && (TryStrToDateTime(_dt, dt));
   return (L->IndexOf(_un) == -1) && (TryStrToInt64(_un, i)) && (TryStrToDateTime(_dt, dt)) && (dt > Now());
}