Fixes a potential crash in TStrings.SaveToStream

git-svn-id: trunk@16187 -

rtl/objpas/classes/stringl.inc

@@ -851,6 +851,7 @@ Var
   S : String;
 begin
   S:=Text;
+  if S = '' then Exit;
   Stream.WriteBuffer(Pointer(S)^,Length(S));
 end;