fix: Correção de RaiseError sobrescrevendo tratamento interno de erros. Se RaiseError for true, vai sobrescrever o tratamento interno do código do usuário por um código genérico de erro na resposta.

Author: mobius1qwe

src/base/RALServer.pas

@@ -721,8 +721,10 @@ procedure TRALServer.ProcessCommands(ARequest: TRALRequest; AResponse: TRALRespo
       if assigned(OnServerError) then
         OnServerError(e)
       else if RaiseError then
+      begin
         raise;
-      AResponse.Answer(HTTP_InternalError, e.Message, rctTEXTPLAIN);
+        AResponse.Answer(HTTP_InternalError, e.Message, rctTEXTPLAIN);
+      end;
     end;
   end;
 end;

src/engine/synopse/RALSynopseServer.pas

@@ -333,7 +333,7 @@ constructor TRALSynopseServer.Create(AOwner: TComponent);
   inherited;
   FHttp := nil;
   FPoolCount := 32; // ou SystemInfo.dwNumberOfProcessors + 1
-  FQueueSize := 1000; // padrao do synopse
+  FQueueSize := 1000; // Tamanho da fila de threads. Padrao do synopse: 1000
   SetEngine('mORMot2 ' + SYNOPSE_FRAMEWORK_FULLVERSION);
 end;