Merged revisions 590 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@677 -

rtl/objpas/classes/streams.inc

@@ -600,7 +600,7 @@ begin
   else
     begin
       Result:=Reallocmem(FMemory,Newcapacity);
-      If Result=Nil then
+      If (Result=Nil) and (Newcapacity>0) then
         Raise EStreamError.Create(SMemoryStreamError);
     end;
 end;