anchor.diff:      function FreeMe: Boolean; override;
     public
       constructor Create(MasterList: ThtDocument; Pos: Integer);
  -    property ChPos: Integer read FChPos;
  +    property ChPos: Integer read FChPos write FChPos;
       property MasterList: ThtDocument read FDocument;
     end;
   
  
positive.code:   finally
      Document.FirstLineHtPtr := nil;
    end;
  end;
  
  ////-- BG ---------------------------------------------------------- 16.09.2009 --
  
negative.code:     FListFont: TFont;
      Image: TImageObj;
      FirstLineHt: Integer;
      procedure SetListFont(const Value: TFont);
    public
      constructor Create(Master: ThtDocument; Prop: TProperties; AnOwnerCell: TCellBasic;
        Sy: Symb; APlain: boolean; AIndexType: ThtChar;
  