* fix from Sebastian Hellwig for writeunicodestring bytes number, mantis 0038963

git-svn-id: trunk@49478 -

rtl/objpas/classes/streams.inc

@@ -1643,7 +1643,7 @@ Var
 begin
   B:=FEncoding.GetBytes(AString);
   if Length(B)>0 then
-    WriteBuffer(B[0],Length(Bytes));
+    WriteBuffer(B[0],Length(B));
 end;
 
 function TStringStream.ReadAnsiString(Count: Longint): AnsiString;