anchor.diff:        FTitleHistory.Insert(0, FTitle);
         if Count > FHistoryMaxCount then
         begin
  -        Delete(FHistoryMaxCount);
  -        FTitleHistory.Delete(FHistoryMaxCount);
  -        PositionObj(FPositionHistory[FHistoryMaxCount]).Free;
  -        FPositionHistory.Delete(FHistoryMaxCount);
  +        Delete(HistoryMaxCount);
  +        FTitleHistory.Delete(HistoryMaxCount);
  +        FPositionHistory.Delete(HistoryMaxCount);
         end;
         if Assigned(FOnHistoryChange) then
           FOnHistoryChange(Self);
  
positive.code:     raise EInOutError.Create('Can''t locate file: ' + FName);
    Stream := TFileStream.Create(FName, fmOpenRead or fmShareDenyWrite);
    try
      LoadStream(FName, Stream, ft);
    finally
      Stream.Free;
    end;
  
negative.code:     else
        ParseText(Self, FDocument);
      CheckVisitedLinks;
      if not PositionTo(Dest) and ((FCurrentFile = '') or (FCurrentFile <> OldFile)) then
      begin
        {if neither destination specified nor same file, move to top}
        ScrollTo(0);
        HScrollBar.Position := 0;
      end;
      PaintPanel.Invalidate;
    finally
      htProgressEnd;
  