难题：求生成一个长度为16位小写字母加数字的所有组合的思路或代码 ( 积分: 50 )

各位朋友，小弟想用DELPHI写一个程序，生成一个长度固定为16位的，小写字母＋数字的所有组合，请问思路如何，又或者能否提供相关的代码，请各位朋友赐教，谢谢！！！&nbsp;<br><br>如：a123456789012345、abcdefghij123abc。。。。。。总之就是小写字母加数字的所有组合。

var<br>&nbsp;&nbsp;a:array&nbsp;[1..36]&nbsp;of&nbsp;string;<br>&nbsp;&nbsp;i1,i2,i3,i4{,.....},i16:integer;<br>begin<br>&nbsp;&nbsp;a[1]:='0';<br>&nbsp;&nbsp;a[2]:='1';<br>&nbsp;&nbsp;a[3]:='2';<br>&nbsp;&nbsp;a[36]:='z';<br>&nbsp;&nbsp;for&nbsp;i1:=1&nbsp;to&nbsp;36&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;i2:=1&nbsp;to&nbsp;36&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;i3:=1&nbsp;to&nbsp;36&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//...<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;i16:=1&nbsp;to&nbsp;36&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add(a[i1]+a[i2]+a[i3]{.....}+a[i16]);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//...<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;end;<br>end;