anchor.diff:  implementation
   
   uses
  -  SysUtils, Math {$IFDEF FPC},graphutil{$ENDIF};
  +  SysUtils, Math
  +  {$IFDEF FPC}
  +    ,graphutil
  +  {$ELSE}
  +    ,System.UIConsts, System.UITypes, Vcl.Imaging.pngimage
  +  {$ENDIF}
  +  ;
   
   {$IFDEF FPC}
   const
  
positive.code:       thumbnail.Canvas.Brush.Color:= clWhite;
        r := Rect(0, 0, thumbnail.Width, thumbnail.Height);
        thumbnail.Canvas.FillRect(r);
        thumbnail.Canvas.AntialiasingMode := amON;
        thumbnail.Canvas.StretchDraw(r, sourcePicture.Graphic);
        thumbnail.SaveToFile(aThumbnailFile);
      finally
  
negative.code:   {$ENDIF}
  end;
  
  {$IFDEF FPC}
    procedure RGBToHLS(aColor: TColor; var H, L, S: Double);
    var
      HW, SW, LW: Word;
  