delphi求十位唯一值随机数（含数字+字母）

delphi求10位唯一值随机数（含数字+字母）
delphi求10位唯一值随机数（含数字+字母）
字母最好都用大写
随机生成10位 唯一的值 
就像生成guid一样 guid 32位太长了。   所以要弄个10位产度的。
有人做过吗？ 还请指教 谢谢。。
[解决办法]
下边的例子, 改造一下即可(可用字符列表中加入你可选的数字/字符)
传送门