anchor.diff:        else
           if Application.MainForm <> nil then
             LPPI := Application.MainForm.CurrentPPI;
  -      OutputDebugString(PChar(Font.Height.ToString));
         ScaleForPPI(LPPI);
         Font.Assign(Screen.MessageFont);
         Font.Height := Muldiv(Font.Height, LPPI, Screen.PixelsPerInch);
  
positive.code:       Form.Free;
      end;
  end;
  {$ENDREGION}
  
  {$REGION 'Fix TMonitorSupport - https://quality.embarcadero.com/browse/RSP-28632}
  
negative.code:     InterceptCreate(TWICImage(nil).GetCreateWICBitmapAddr,
      TMethod(Detour_TWICImage_CreateWICBitmap).Code);
   {$ENDIF}
  
    {$IF CompilerVersion < 35}
    Original_InputQuery := Vcl.Dialogs.InputQuery;
    Detour_InputQuery := FixedInputQuery;
    Trampoline_InputQuery := TInputQuery(InterceptCreate(@Original_InputQuery, @Detour_InputQuery));
   {$ENDIF}
  
   {$IF CompilerVersion < 34}
    System.MonitorSupport.NewWaitObject := NewWaitObj;
  