TXmlDocument.Create(nil)

[Sir Rufo]

Du sollst auch nur das machen, was ich dir gesagt habe.

Ändere nur deinen Original-Code wie folgt ab:

Delphi-Quellcode:

var
  XmlDok: {TXmlDocument} IXmlDocument;
begin
  // keine Änderung am Original-Code!
  XmlDok := TXmlDocument.Create( nil );
  ...
  // ok, try finally und das Free kann ersatzlos gestrichen werden
end;