IXMLDOMDocument Speicher

[win568]

Hallo Leute

Ich habe folgendes Problem: Wenn ich per IXMLDOMDocument neue Knoten anfüge und diese dann in einer Datei speichere, wird der belegte Speicher nach Nil setzen des Dokumentes nicht wieder freigegeben. Das ganze passiert zwar mit einer eigenen Klasse, aber selbst mit folgender Implementation funkt es nicht:

Code:

procedure TestXML;
var
  lDoc: IXMLDOMDocument;
  lRootNode, lNode: IXMLDOMNode;
  i: Integer;
begin
  lDoc := CoDOMDocument60.Create;
  try
    lRootNode := lDoc.createElement('Root');
    lDoc.appendChild(lRootNode);
    for i := 0 to 1000000 do begin
      lNode := lDoc.createElement('Child' + IntToStr(i));
      lNode.text := 'Childknoten ' + IntToStr(i);
      lRootNode.appendChild(lNode);
    end;
    lDoc.save('D:\Test.xml');
  finally
    lDoc := nil;
  end;
end;

Nach dem Nil setzen, sollte der belegte Speicher ja wieder freigegeben werden. Aber nix tut sich.