* Read into string with len 0 could cause range check errors.

git-svn-id: trunk@12131 -

packages/chm/src/chmreader.pas

@@ -707,7 +707,8 @@ var
 
     NameLength := GetCompressedInteger(ChunkStream);
     SetLength(Result, NameLength);
-    ChunkStream.Read(Result[1], NameLength);
+    if NameLength>0 then
+      ChunkStream.Read(Result[1], NameLength);
   end;
 var
   PMGLChunk: TPMGListChunk;