Update BCrypt.pas