Есть такой код Delphi7

  ClientDataSet2.XMLData := XMLTransform1.TransformXML(s,'xxx.xtr');
  ClientDataSet2.Active:= false;
  ClientDataSet2.Active:= true;

где s:="

<?xml version="1.0" encoding="windows-1251"?>
<Document>
<ROW>
<BIRTHDAY>19700714</BIRTHDAY>
<SEX>M</SEX>
<NAME>&Egrave;&acirc;&agrave;&iacute;&icirc;&acirc; &Ntilde;&aring;&eth;&atilde;&aring;&eacute; &Acirc;&euml;&agrave;&auml;&egrave;&igrave;&egrave;&eth;&icirc;&acirc;&egrave;&divide;</NAME>
<DEPARTMENT>2868529</DEPARTMENT>
<BRANCH>0000</BRANCH>
</ROW>
</Document>

Выдается ощибка кодировки.
Как исправить???