Correção de acesses violation, quando o servidor tenta carregar os recursos das paginas do web pascal

Author: Ronierys2

CORE/Source/Basic/uRESTDWBasic.pas

@@ -3600,8 +3600,8 @@ interface
                     StatusCode             := 200;
                     If Not (Assigned(ResultStream)) Then
                      ResultStream := TStringStream.Create('');
-                    WriteStream(mb, ResultStream);
-                    FreeAndNil(mb);
+                    WriteStream(ContentStream, ResultStream);
+                    FreeAndNil(ContentStream);
                     Result                 := True;
                    End;
                  End;

CORE/Source/Consts/uRESTDWConsts.pas

@@ -652,7 +652,8 @@ implementation
  try
    Result := Mime.GetFileMIMEType(sFile);
  finally
-   FreeAndNil(Mime);
+  Mime.Free
+//   FreeAndNil(Mime);
  end;
 End;