anchor.diff:  
         while pData < pDataEnd do
         begin
  -        TopicIndex:= puint16( pData )^;
  +        TopicIndex:= pUInt16( pData )^;
           Results^[ TopicIndex ] := 0;
           inc( pData, 2 );
         end;
  
positive.code:         TopicIndex:= 0
        else
        begin
          TopicIndex:= puInt16( pData )^ * 8;
          inc( pData, 2  );
        end;
  
        while pData < pDataEnd do
        begin
          Flags:= puInt8( pData )^;
          Check1ByteOfFlags( Flags,
                             TopicIndex,
                             Results );
  
negative.code:       if thebyte = 0 then
        begin
          // 16 bit repeat of zeroes??
          N := pUInt16( p )^ + 1;
          inc( p, 2 );
          inc( TopicIndex, N );
        end
  