anchor.diff:  {$ENDREGION}
   
   {$REGION 'Fix InputQuery - https://quality.embarcadero.com/browse/RSP-27077'}
  +{$IF CompilerVersion < 35}
   type
     TInputQuery = function (const ACaption: string; const APrompts: array of string; var AValues: array of string; CloseQueryFunc: TInputCloseQueryFunc = nil): Boolean;
   
  
positive.code:     InterceptCreate(TWICImage(nil).GetCreateWICBitmapAddr,
      TMethod(Detour_TWICImage_CreateWICBitmap).Code);
   {$ENDIF}
    Original_InputQuery := Vcl.Dialogs.InputQuery;
    Detour_InputQuery := FixedInputQuery;
    Trampoline_InputQuery := TInputQuery(InterceptCreate(@Original_InputQuery, @Detour_InputQuery));
  
   {$IF CompilerVersion < 34}
    System.MonitorSupport.NewWaitObject := NewWaitObj;
  
negative.code:       else
          if Application.MainForm <> nil then
            LPPI := Application.MainForm.CurrentPPI;
        ScaleForPPI(LPPI);
        Font.Assign(Screen.MessageFont);
        Font.Height := Muldiv(Font.Height, LPPI, Screen.PixelsPerInch);
  