anchor.diff:  
     MaxRate := 0.0;
     TotalMilliSeconds := 0;
  -  for Idx := 0 to System.Pred(3) do
  +
  +  Idx := 3;
  +  while Idx > 0 do
     begin
       Total := 0;
   
  
positive.code: 
    AStringList.Append(Calculate(THashFactory.TCrypto.CreateBlake2S_256));
  
  end;
  
  class constructor TPerformanceBenchmark.PerformanceBenchmark;
  
negative.code:   Idx: Int32;
    Total: Int64;
    A, B, TotalMilliSeconds: UInt32;
    NewName, BlockSizeAndUnit: String;
  begin
  
    System.SetLength(Data, ASize);
  