Free von XML-Komponente führt zu EInvalidPointer exception

[Union]

Das passiert womöglich nicht beim Free, sondern hier:

Delphi-Quellcode:

procedure TXMLData.XMLToTree(var Tree: TTreeView; const FileName: String);
var
  Doc: IXMLDocument;
begin
  Doc := NewXMLDocument;
  Doc.LoadFromFile(FileName);
  Doc.Active; // Diese Zeile macht nichts. Es muß heißen Doc.Active := True
  IterateXMLNodes(Doc.DocumentElement, nil, Tree);
end;