anchor.diff:    i := 0;
     repeat
       { reset variables }
  +    lNoteTextStarted := False;
       TopicIndex := -1;
       InsertPoint := -1;
       NoteText := '';
  
positive.code:   s: TfpgString;
    lReadTopicIndex: boolean;
    lReadInsertPoint: boolean;
  begin
    ProfileEvent( 'Load notes for ' + AHelpFile.Filename );
  
  
negative.code:       end
        else
        begin
          if lNoteTextStarted then
            NoteText := NoteText + LineEnding + s
          else
            NoteText := s;
          lNoteTextStarted := True;
        end;
      until s = '#ENDNOTE#';
  
  