anchor.diff:  begin
     for FileIndex := 0 to CurrentOpenFiles.Count - 1 do
     begin
  -    HelpFile := THelpFile(CurrentOpenFiles[ id ]);
  +    HelpFile := THelpFile(CurrentOpenFiles[ FileIndex ]);
   
       Result := HelpFile.FindTopicByResourceID( ID );
       if Result <> nil then
  
positive.code:   Result := nil;
  end;
  
  
  end.
  
negative.code:       Add('<b>Dictionary count:</b> ' + IntToStr(f.DictionaryCount));
        Add('<b>Topic count:</b> ' + IntToStr(f.TopicCount));
        Add('<b>Index count:</b> ' + IntToStr(f.Index.Count));
        Add('<b>String resource id count:</b> ' + IntToStr(f.StringResourceIDCount));
        Add('<b>Numeric resource id count:</b> ' + IntToStr(f.NumericResourceIDCount));
        Add(' ');
        //Add('Dictionary contents:');
        //for i := 0 to f.DictionaryCount-1 do
  