function CreateDocumentXML: boolean;
var
  Xml: IXMLDOCUMENT;
  ArchivNode, HeaderNode, ContentNode, DocumentNode, UNode: IXMLNode;
  fn : string;
begin
  Result := false;
  try
    Xml := NewXMLDocument;
    Xml.Encoding := 'utf-8';
    Xml.Options := [doNodeAutoIndent]; // looks better in Editor ;)
    ArchivNode := Xml.AddChild('archive');
    HeaderNode := ArchivNode.AddChild('header');
    ContentNode := ArchivNode.AddChild('content');
    DocumentNode := ContentNode.AddChild('document');
    ArchivNode.Attributes['version'] := '3.0';
    ArchivNode.Attributes['generatingSystem'] := 'Test';
    ArchivNode.Attributes['xmlns:xsi'] := 'http://www.w3.org/2001/XMLSchema-instance';
    ArchivNode.Attributes['xsi:schemaLocation'] := 'http://xml.datev.de/bedi/tps/document/v03.0 document_v030.xsd';
    ArchivNode.Attributes['xmlns'] := 'http://xml.datev.de/bedi/tps/document/v03.0';
    //die beiden Untereinträge
    UNode := HeaderNode.AddChild('date');
    UNode.Text := Formatdatetime('yyyy-mm-dd hh:nn:ss',now);
    UNode := HeaderNode.AddChild('description');
    UNode.Text := 'Datenübergabe';
...
    fn := TPath.Combine(ExportPfad, 'document.xml');
    if TFile.Exists(fn) then
      TFile.Delete(fn);
    Xml.SaveToFile(fn);
  except
    LogAusgabe('Fehler bei Erzeugung document.xml !');
    exit;
  end;
  Result := true;
end;