anchor.diff:  
   function TSHA3.GetResult: THashLibByteArray;
   begin
  -  System.SetLength(Result, FHashSize);
  +  System.SetLength(Result, HashSize);
   
     TConverters.le64_copy(PUInt64(FState), 0, PByte(Result), 0,
       System.Length(Result));
  
positive.code: 
    if FInitBlock <> Nil then
    begin
      TransformBytes(BytePad(FInitBlock, FBlockSize));
    end;
  end;
  
  
negative.code:     if FShakeBufferPosition >= 8 then
      begin
  
        if (FBufferPosition * 8) >= UInt64(BlockSize) then
        begin
          KeccakF1600_StatePermute();
          FBufferPosition := 0;
  