anchor.diff:      fTimes: array of record
         Time: Int64;
         Tag: Integer;
  +      Count: Integer;
       end;
       function GetCount: Integer;
       function GetEnterTick: Integer;
  
positive.code:     Inc(total, fTimes[I].Time);
  
      if fTimes[I].Time >= aSaveThreshold then
        aStringList.Append(Format('Tick: %d'#9'%d'#9'%d', [I, fTimes[I].Tag, fTimes[I].Time]));
    end;
  
    aStringList.Append('Total ' + FloatToStr(total/1000) + 'msec');
  
negative.code:   if fEnterTick = -1 then
      fTimes[tgt].Time := T
    else
    begin
      fTimes[tgt].Time := fTimes[tgt].Time + T;
      Inc(fTimes[tgt].Count);
    end;
  
    fCount := Max(fCount, tgt);
  end;
  