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:     function DrawLogic(Canvas: TCanvas; X, Y, XRef, YRef, AWidth, AHeight, BlHt: Integer; IMgr: TIndentManager;
        var MaxWidth, Curs: Integer): Integer; override;
      function Draw1(Canvas: TCanvas; const ARect: TRect; IMgr: TIndentManager; X, XRef, YRef: Integer): Integer; override;
      property ListNumb: Integer read FListNumb write FListNumb;
      property ListStyleType: ListBulletType read FListStyleType write FListStyleType;
      property ListType: ListTypeType read FListType write FListType;
      property ListFont: TFont read FListFont write SetListFont;
    end;
  
    TFieldsetBlock = class(TBlock)
  