Unit'ы XMLIntf и XmlDoc

[Explosion]

Здравствуйте, помогите разобраться со структурой пространства имён XML с помощью сабжа.

procedure TfrmE.itClick(Sender: TObject);
var XML: IXMLDocument;
    rootElement, currentElement: IXMLNode;
begin
  XML := NewXMLDocument;
  XML.Encoding := 'windows-1251';
  XML.Options := [doNodeAutoIndent];

  rootElement := XML.AddChild('Файл');
  rootElement.DeclareNamespace('tns', 'urn://x-artefacts-f-f/root/1.0.0');
  currentElement := rootElement.AddChild('ФИО', 'urn://x-artefacts-f-f/root/1.0.0', true);

  XML.SaveToFile('E:\test.xml');
end;

Результат:

<?xml version="1.0" encoding="windows-1251"?>
<Файл xmlns:tns="urn://x-artefacts-f-f/root/1.0.0">
  <ФИО xmlns="urn://x-artefacts-f-f/root/1.0.0"/>
</Файл>

Желаемый результат:

<?xml version="1.0" encoding="windows-1251"?>
<tns:Файл xmlns:tns="urn://x-artefacts-f-f/root/1.0.0">
  <tns:ФИО xmlns:tns="urn://x-artefacts-f-f/root/1.0.0"/>
</Файл>

Дайте, пожалуйста, кусок кода с помощью которого можно получить желаемый результат.
Можно было конечно в таком духе, по-дурацки сделать:

rootElement := XML.AddChild('tns:Файл');
currentElement.Attributes['xmlns:tns'] := 'urn://x-artefacts-f-f/root/1.0.0';

Но может есть более "правильный" способ?