anchor.diff:      raise EInOutError.Create('Can''t locate file: ' + FName);
     Stream := TFileStream.Create(FName, fmOpenRead or fmShareDenyWrite);
     try
  -    LoadStream(FName, Stream, ft);
  +    LoadStream(FName + Dest, Stream, ft);
     finally
       Stream.Free;
     end;
  
positive.code:     Exit; {TFrameViewer will take care of visited links}
    I := Visited.IndexOf(S);
    if I = 0 then
      Exit
    else if I < 0 then
    begin
      for J := 0 to SectionList.LinkList.Count - 1 do
        with TFontObj(SectionList.LinkList[J]) do
  
negative.code:       FTitleHistory.Insert(0, FTitle);
        if Count > FHistoryMaxCount then
        begin
          Delete(HistoryMaxCount);
          FTitleHistory.Delete(HistoryMaxCount);
          FPositionHistory.Delete(HistoryMaxCount);
        end;
        if Assigned(FOnHistoryChange) then
          FOnHistoryChange(Self);
  