anchor.diff:      FWordwarp: Boolean;
       FModalResult: TModalResult;
       FMouseLeave: Boolean;
  +    FImgWidth: Integer;
  +    FImgHeight: Integer;
     {$IFDEF UseGDIPlus}
       FGPBitmap: TGPImage;
     {$ENDIF}
  
positive.code: {$ENDIF}
    Winapi.Messages,
    System.Classes,
    System.Types,
    Vcl.Controls,
    Vcl.Graphics,
  
negative.code: 
  var
    R: TRect;
  //  LNewWidth, LNewHeight: Integer;
  begin
    inherited Paint;
  
  