anchor.diff:    strict protected
     var
       FState: THashLibUInt64Array;
  -    FHashSize, FBlockSize: Int32;
       FHashMode: THashMode;
   
   {$REGION 'Consts'}
  
positive.code:   LBlock := FBuffer.GetBytesZeroPadded();
  
    LBlock[LBufferPosition] := Int32(FHashMode);
    LBlock[FBlockSize - 1] := LBlock[FBlockSize - 1] xor $80;
  
    TransformBlock(PByte(LBlock), System.Length(LBlock), 0);
  end;
  
negative.code: constructor TSHA3.Create(AHashSize: THashSize);
  begin
    Inherited Create(Int32(AHashSize), 200 - (Int32(AHashSize) * 2));
    System.SetLength(FState, 25);
  end;
  
  