fix:

 - Correção de memoryleak na conversão de StreamToString. #118
 - Remoção de redundância do fix anterior.

Fixed #118

Author: mobius1qwe

src/base/RALParams.pas

@@ -426,9 +426,7 @@ procedure TRALParam.SetAsStream(const AValue: TStream);
     AValue.Position := 0;
     FContent := TRALStringStream.Create(AValue);
     FContent.Position := 0;
-  end
-  else
-    FContent := nil;
+  end;
 end;
 
 procedure TRALParam.SetAsString(const AValue: StringRAL);

src/utils/RALStream.pas

@@ -15,7 +15,7 @@ interface
 
   TRALBinaryWriter = class
   private
-    FStream : TStream;
+    FStream: TStream;
   protected
     // read and write UTF-7
     function ReadSize: UInt64RAL;
@@ -158,7 +158,11 @@ function StreamToString(AStream: TStream): StringRAL;
   else
   begin
     vStream := TRALStringStream.Create(AStream);
-    Result := TRALStringStream(vStream).DataString;
+    try
+      Result := TRALStringStream(vStream).DataString;
+    finally
+      FreeAndNil(vStream);
+    end;
 
 //    vStream := TStringStream.Create(EmptyStr);
 //    try