anchor.diff:      begin
           if Color <> -1 then
             Transparent := TrGif;
  -        Image := ThtBitmapImage.Create(Bitmap, Transparent, Color, False);
  +        Image := ThtBitmapImage.Create(Bitmap, Transparent, Color, OwnsBitmap);
       end;
   
       if Image <> nil then {put in Cache}
  
positive.code:     procedure GetBackgroundBitmap;
      procedure HideControls;
      procedure InsertImage(const Src: ThtString; Stream: TStream; out Reformat: Boolean); overload;
      procedure InsertImage(const Src: ThtString; Bitmap: TBitmap; Color: TColor; Transparent: TTransparency; out Reformat: Boolean); overload;
      procedure LButtonDown(Down: boolean);
      procedure ProcessInlines(SIndex: Integer; Prop: TProperties; Start: Boolean);
      procedure SetBackground(ABackground: TColor);
  
negative.code: end;
  
  //-- BG ---------------------------------------------------------- 10.01.2015 --
  procedure ThtDocument.InsertImage(const Src: ThtString; Bitmap: TBitmap; Color: TColor; Transparent: TTransparency; OwnsBitmap: Boolean; out Reformat: Boolean);
  var
    UName: ThtString;
    I, J: Integer;
  