XML: Kopieren einer kompletten XML Struktor

[DerDan]

Danke Für den Hinweis.

Geht leider auch nicht:

Code:

 
procedure TForm20.Button3Click(Sender: TObject);
var
  XMLCutprogramList  : IXMLCutprogramsType;
  XMLCutprogramCopy : IXMLCutprogramsType;
begin
  Memo1.Lines.Clear;
  // orig:
  XMLCutprogramList := LoadCutprograms(ed1.Text);
  Memo1.Lines.Add(Format ('orig. Count: %d', [XMLCutprogramList.Count]));

  XMLCutprogramCopy := NewCutprograms;
  XMLCutprogramCopy.OwnerDocument.LoadFromXML (XMLCutprogramList.XML);
  XMLCutprogramCopy.Resync;
  Memo1.Lines.Add(Format ('3 copy. Count: %d', [XMLCutprogramCopy.Count]));
  //Memo1.Lines.Add (XMLCutprogramList.XML);
end;