* TXMLConfig.ResetKey: Don't access memory beyond allocated array length, resolves #20098.

git-svn-id: trunk@18913 -

packages/fcl-xml/src/xmlconf.pp

@@ -431,7 +431,7 @@ procedure TXMLConfig.ResetKey;
 var
   I: Integer;
 begin
-  for I := Length(FPathStack) downto 0 do
+  for I := Length(FPathStack)-1 downto 0 do
     FPathStack[I] := '';
   FElement := nil;    
   FPathDirty := False;