fix: erro de compilação para Lazarus

fix: configuração de diretivas para Delphi 13

Author: mobius1qwe

src/base/PascalRAL.inc

@@ -35,6 +35,32 @@
   {$IFDEF CLR}
     {$DEFINE DELPHINET}
   {$ENDIF}
+  
+  {$IF Defined(VER370) or (CompilerVersion >= 37)}
+    {$DEFINE DELPHI13UP}
+    {$DEFINE DELPHI12UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI10_4UP}
+    {$DEFINE DELPHI10_3UP}
+    {$DEFINE DELPHI10_2UP}
+    {$DEFINE DELPHI10_1UP}
+    {$DEFINE DELPHI10_0UP}
+    {$DEFINE DELPHIXE8UP}
+    {$DEFINE DELPHIXE7UP}
+    {$DEFINE DELPHIXE6UP}
+    {$DEFINE DELPHIXE5UP}
+    {$DEFINE DELPHIXE4UP}
+    {$DEFINE DELPHIXE3UP}
+    {$DEFINE DELPHIXE2UP}
+    {$DEFINE DELPHIXEUP}
+    {$DEFINE DELPHI2010UP}
+    {$DEFINE DELPHI2009UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI8UP}
+    {$DEFINE DELPHI7UP}
+  {$IFEND ~VER370}  
 
   {$IF Defined(VER360) or (CompilerVersion >= 36)}
     {$DEFINE DELPHI12UP}

src/base/RALConsts.pas

@@ -13,7 +13,7 @@ interface
 
 const
   // Versionamento
-  RALVERSION = '0.12.1-2 beta';
+  RALVERSION = '0.12.1-3 beta';
   RALVERSION_MAJOR = 0;
   RALVERSION_MINOR = 12;
   RALVERSION_PATCH = 1;

src/engine/fpHTTP/RALfpHTTPServer.pas

@@ -349,9 +349,9 @@ procedure TRALfpHttpServerThread.OnCommandProcess(Sender: TObject;
       end;
     except
       on e: exception do
-        if Assigned(OnServerError) then
-          OnServerError(e)
-        else if RaiseError then
+        if Assigned(FParent.OnServerError) then
+          FParent.OnServerError(e)
+        else if FParent.RaiseError then
           raise;
     end;
   finally