anchor.diff:        Form.Free;
       end;
   end;
  -{$ENDIF}
   {$ENDREGION}
   
   {$REGION 'Fix TMonitorSupport - https://quality.embarcadero.com/browse/RSP-28632}
  
positive.code:   TMethod(Trampoline_TWICImage_CreateWICBitmap).Code :=
      InterceptCreate(TWICImage(nil).GetCreateWICBitmapAddr,
      TMethod(Detour_TWICImage_CreateWICBitmap).Code);
    Original_InputQuery := Vcl.Dialogs.InputQuery;
    Detour_InputQuery := FixedInputQuery;
    Trampoline_InputQuery := TInputQuery(InterceptCreate(@Original_InputQuery, @Detour_InputQuery));
  
    System.MonitorSupport.NewWaitObject := NewWaitObj;
    System.MonitorSupport.FreeWaitObject := FreeWaitObj;
   {$ENDIF}
  finalization
    {$IF CompilerVersion < 34}
    InterceptRemove(TMethod(Trampoline_TWICImage_CreateWICBitmap).Code);
    InterceptRemove(@Trampoline_InputQuery);
  
    MonitorSupportShutDown := True;
    CleanStack(AtomicExchange(Pointer(EventCache.Head), nil));
    CleanStack(AtomicExchange(Pointer(EventItemHolders.Head), nil));
  
negative.code: {$ENDREGION}
  
  {$REGION 'Fix InputQuery - https://quality.embarcadero.com/browse/RSP-27077'}
  type
    TInputQuery = function (const ACaption: string; const APrompts: array of string; var AValues: array of string; CloseQueryFunc: TInputCloseQueryFunc = nil): Boolean;
  
  