anchor.diff:      if IT = Jpg then
       begin
         Transparent := NotTransp;
  -      jpImage := TJpegMod.Create;
  +      jpImage := TJpegImage.Create;
         try
           jpImage.LoadFromStream(Stream);
           if ColorBits <= 8 then
  
positive.code:   var Transparent: Transparency; var AMask: TBitmap): TBitmap;
  var
    IT: ImageType;
    jpImage: TJpegMod;
  //  {$ifndef NoOldPng}
  //  PI: TPngObject;
  //  Color: TColor;
  //  Tmp: TBitmap;
  //  {$endif}
  begin
    Result := nil;
    AMask := nil;
  
negative.code:         end
          else
            jpImage.PixelFormat := jf24bit;
          Result.Assign(jpImage);
        finally
          jpImage.Free;
        end;
  