anchor.diff:      end;
   
       // look in indices
  -    LogEvent(LogDebug, '  Merge indices' );
       for i := 0 to tmpIndexLists.Count - 1 do
       begin
  -      LogEvent(LogDebug, '  Merge indices ' + IntToStr(i) );
         tmpIndex := TStringList(tmpIndexLists.Items[i]);
         if IndexNextIndex[i] < tmpIndex.Count then
         begin
           // list is not yet finished, get next entry
           ListEntry := tmpIndex.Strings[ IndexNextIndex[i] ];
  -        LogEvent(LogDebug, '    indices ListEntry=' + ListEntry );
           if LowestEntry <> '' then
             tmpTextCompareResult := CompareText( ListEntry, LowestEntry )
           else
  
positive.code:     tmpLowestEntryListIndex := -1;
      // Find alphabetically lowest (remaining) topic
      // first, look in contents lists
      LogEvent(LogDebug, '  Merge contents' );
      for i := 0 to ContentsLists.Count - 1 do
      begin
        Contents := TList(ContentsLists.Items[i]);
  
negative.code:           tmpLowestEntryListIndex := i;
            tmpLowestEntryListType := ltIndex;
  
            tmpLowestEntryTopic := TIndexEntry( tmpIndex.Objects[ IndexNextIndex[i] ] ).getTopic;
          end;
        end;
  