anchor.diff:  
     pSlotArray = ^SlotArray;
   
  -  TTopic = class
  +  TTopic = class(TObject)
     protected
       _pTOCEntry: pTTOCEntryStart;
       _Slots: pSlotArray;
       _NumSlots: longint;
       _NumSlotsUsed: longint;
  -    _Title: pstring;
  +    _Title: string;
       _GlobalDictionary: TList;
   
       _ShowInContents: boolean;
  
positive.code:   begin
      for LinkIndex:= 0 to Links.Count - 1 do
      begin
        Link:= Links[ LinkIndex ];
        Link.Destroy;
      end;
      Links.Destroy;
    end;
    FreePString( _Title );
    FreeMem( _Slots, _NumSlots * sizeof( THelpTopicSlot ) );
  end;
  
  procedure TTopic.SetTitle( const NewValue: string );
  begin
    FreePString( _Title );
    _Title:= NewPString( NewValue );
  end;
  
  procedure TTopic.SetTitleFromMem( const p: pointer; const Len: byte );
  begin
    FreePString( _Title );
    GetMem( _Title, Len + 1 );
    _Title^[ 0 ] := char( Len );
    MemCopy( p, _Title + 1, Len );
  end;
  
  function TTopic.GetTitle: string;
  begin
    Result:= _Title^;
  end;
  
  function SubstituteAngleBrackets( const s: string ): string;
  
negative.code: // RichTextView.
  
  uses
    Classes, DataTypes, HelpWindow, HelpFileHeader;
  
  Type
    THelpLink = class
  