anchor.diff:          TopicIndex:= 0
         else
         begin
  -        TopicIndex:= puInt16( pData )^ * 8;
  +        TopicIndex:= pUInt16( pData )^ * 8;
           inc( pData, 2  );
         end;
   
         while pData < pDataEnd do
         begin
  -        Flags:= puInt8( pData )^;
  +        Flags:= pUInt8( pData )^;
           Check1ByteOfFlags( Flags,
                              TopicIndex,
                              Results );
  
positive.code:       FillUInt32Array( Results, _TopicCount, 1 );
  
      2: // RLE
        begin
          DoRLESearch( pData,
                       pDataEnd,
                       Results );
        end;
  
      3: // list of topics containing word
        while pData < pDataEnd do
        begin
          TopicIndex:= puint16( pData )^;
          Results^[ TopicIndex ] := 1;
          inc( pData, 2 );
        end;
  
      4: // list of topics NOT containing word
      begin
  
negative.code:                         TopicCount: longint );
      destructor Destroy; override;
  
      // Sets Results to 1 for occurrences of DictIndex
      procedure Search( DictIndex: uint16;
                        Results: UInt32ArrayPointer );
  
  