diff --git a/fcl/inc/streams.inc b/fcl/inc/streams.inc
index 9bfb28d661..de37b161e7 100644
--- a/fcl/inc/streams.inc
+++ b/fcl/inc/streams.inc
@@ -696,8 +696,8 @@ begin
   Result:=Length(FDataString)-FPosition;
   If Result>Count then Result:=Count;
   // This supposes FDataString to be of type AnsiString !
-  Move (Pchar(FDataString)[FPosition],Buffer,Count);
-  FPosition:=FPosition+Count;
+  Move (Pchar(FDataString)[FPosition],Buffer,Result);
+  FPosition:=FPosition+Result;
 end;
 
 
@@ -710,7 +710,6 @@ begin
   If NewLen>Count then NewLen:=Count;
   SetLength(Result,NewLen);
   Read (Pointer(Result)^,NewLen);
-  ReadString:='';
 end;
 
 
@@ -784,7 +783,13 @@ end;
 
 {
   $Log$
-  Revision 1.11  2002-12-18 16:45:33  peter
+  Revision 1.13  2003-07-26 16:20:50  michael
+  + Fixed readstring from TStringStream (
+
+  Revision 1.12  2002/04/25 19:14:13  sg
+  * Fixed TStringStream.ReadString
+
+  Revision 1.11  2002/12/18 16:45:33  peter
     * set function result in TStream.Seek(int64) found by Mattias Gaertner
 
   Revision 1.10  2002/12/18 16:35:59  peter