* UniqueString called on initial string for stringstream (bug ID 24130)

git-svn-id: trunk@26715 -

rtl/objpas/classes/streams.inc

@@ -807,6 +807,7 @@ constructor TStringStream.Create(const AString: string);
 begin
   Inherited create;
   FDataString:=AString;
+  UniqueString(FDataString);
 end;