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

Question

delphi求10位唯一值随机数（含数字+字母）
字母最好都用大写
随机生成10位 唯一的值 
就像生成guid一样 guid 32位太长了。   所以要弄个10位产度的。
有人做过吗？ 还请指教 谢谢。。

Answer 1

下边的例子, 改造一下即可(可用字符列表中加入你可选的数字/字符)
传送门

Answer 2

感激 感激 非常感激

Answer 3

我需要数字 + 字母的 这个好像只有数字的啊。