fixed compile error

Author: sglienke

Source/Base/Spring.Events.pas

@@ -613,22 +613,24 @@ procedure TEvent.InternalInvokeMethod(UserData: Pointer;
   const Args: TArray<TValue>; out Result: TValue);
 var
   argsWithoutSelf: TArray<TValue>;
+  guard: GuardedPointer;
   handlers: PMethodArray;
   i: Integer;
   value: TValue;
 begin
   if CanInvoke then
   begin
     argsWithoutSelf := Copy(Args, 1);
-    handlers := AcquireGuard(fHandlers);
+    guard := AcquireGuard(fHandlers);
+    handlers := guard;
     try
       for i := 0 to DynArrayHigh(handlers) do
       begin
         TValue.Make(@TMethod(handlers[i]), TRttiInvokableType(UserData).Handle, value);
         TRttiInvokableType(UserData).Invoke(value, argsWithoutSelf);
       end;
     finally
-      ReleaseGuard;
+      guard.Release;
     end;
   end;
 end;
@@ -637,6 +639,7 @@ procedure TEvent.InternalInvokeDelegate(Method: TRttiMethod;
   const Args: TArray<TValue>; out Result: TValue);
 var
   argsWithoutSelf: TArray<TValue>;
+  guard: GuardedPointer;
   handlers: PMethodArray;
   i: Integer;
   reference: IInterface;
@@ -645,7 +648,8 @@ procedure TEvent.InternalInvokeDelegate(Method: TRttiMethod;
   if CanInvoke then
   begin
     argsWithoutSelf := Copy(Args, 1);
-    handlers := AcquireGuard(fHandlers);
+    guard := AcquireGuard(fHandlers);
+    handlers := guard;
     try
       for i := 0 to DynArrayHigh(handlers) do
       begin
@@ -654,7 +658,7 @@ procedure TEvent.InternalInvokeDelegate(Method: TRttiMethod;
         method.Invoke(value, argsWithoutSelf);
       end;
     finally
-      ReleaseGuard;
+      guard.Release;
     end;
   end;
 end;