Подключение библиотеки libxml2 к Builder2009

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
 
#include <libxml/parser.h>
#include <libxml/HTMLparser.h>
#include <libxml/HTMLtree.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
int edit_body_tag(xmlNode * a_node)
{
  xmlNode *cur_node = NULL;
 
  for (cur_node = a_node; cur_node; cur_node = cur_node->next)
  {
    if (cur_node->type == XML_ELEMENT_NODE) {
      if ( !xmlStrcmp(cur_node->name, (const xmlChar *)"body") )
      {
        //  xmlSetProp создает либо меняет значение атрибута
        xmlSetProp(cur_node, (const xmlChar *)"onload", (const xmlChar*)"alert('Hello libXML!');");
        return 1;
      }
    }
 
    if ( edit_body_tag(cur_node->children) ) return 1;
  }
  return 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
const char * filename="CyberForum.ru.html";
const char * result_file="after_parse.html";
 
xmlNode *root_element = NULL;
 
htmlDocPtr  docPtr = htmlParseFile(filename,NULL);
 
root_element = xmlDocGetRootElement(docPtr);
edit_body_tag(root_element);
 
htmlSaveFileEnc(result_file, docPtr,NULL);
 
xmlFreeDoc(docPtr);
xmlCleanupParser(); // удаляет созданные библиотекой во время разбора глобальные переменные
 
if(FileExists(result_file))
  ShellExecuteA(NULL,"open",result_file,NULL,(ExtractFileDir(result_file)).c_str(),SW_RESTORE);
else ShowMessage("Error!!!");
}
//---------------------------------------------------------------------------