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;
Danke für dein Feedback
, aber das hat das Problem nicht gelöst