* Fix bug #28796

git-svn-id: trunk@31982 -

rtl/objpas/classes/streams.inc

@@ -186,7 +186,7 @@ end;
   begin
     t:=0;
     repeat
-      r:=Read(PByte(@Buffer)[t],Count);
+      r:=Read(PByte(@Buffer)[t],Count-t);
       inc(t,r);
     until (t=Count) or (r<=0);
     if (t<Count) then