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:         begin
            Delete(0);
            FTitleHistory.Delete(0);
            PositionObj(FPositionHistory[0]).Free;
            FPositionHistory.Delete(0);
          end;
        end;
  
negative.code:     raise EInOutError.Create('Can''t locate file: ' + FName);
    Stream := TFileStream.Create(FName, fmOpenRead or fmShareDenyWrite);
    try
      LoadStream(FName + Dest, Stream, ft);
    finally
      Stream.Free;
    end;
  