* free doc before calling a readxmlfile procedure routine with OUT parameter. Fixes #40126

(cherry picked from commit 8c888d97448caf47d94704bd9a219491f9d93bd1)

packages/fcl-xml/src/xmlconf.pp

@@ -167,6 +167,7 @@ begin
   F:=TFileStream.Create(AFileName,fmOpenread or fmShareDenyWrite);
   try
     FFileName := '';
+    Doc.Free;
     ReadXMLFile(Doc, AFilename);
     FFileName:=AFileName;
   finally
@@ -176,6 +177,7 @@ end;
 
 procedure TXMLConfig.LoadFromStream(S: TStream);
 begin
+  Doc.Free;
   ReadXMLFile(Doc,S);
   FModified := False;
   if (Doc.DocumentElement.NodeName<>FRootName) then