anchor.diff:    with Self do MethodPtr := CreateWICBitmap;
     Result := TMethod(MethodPtr).Code;
   end;
  +{$ENDIF}
   {$ENDREGION}
   
   {$REGION 'Fix InputQuery - https://quality.embarcadero.com/browse/RSP-27077'}
  
positive.code: end;
  {$ENDREGION}
  
  initialization
   Detour_TWICImage_CreateWICBitmap := TWICImage(nil).Detour_CreateWICBitmap;
   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));
  
  finalization
   InterceptRemove(TMethod(Trampoline_TWICImage_CreateWICBitmap).Code);
   InterceptRemove(@Trampoline_InputQuery);
  end.
  
negative.code:   DDetours;
  
  {$REGION 'Fix TWICImage - https://quality.embarcadero.com/browse/RSP-26621'}
  {$IF CompilerVersion < 34}
  type
    TCreateWICBitmap = procedure of object;
  
  