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