有一个棘手问题，看哪位delphi高手能解决


从每一列中选择自己想要的数据（可以全选，也可以手动选择），然后用每一列的数值生成一个四位数。例如：第一列中选择了1,2,第二列中选择了1,第三列中选择了1，第四列中选择了1，则生成的数据有1111,2111,并把数据写到一个文本文件中，我是新手，实在不知道怎么写。能帮忙写一下吗？
[解决办法]
思路如下：
首先把挨个把四列数放在四个数据组里，选择的就添写实际数，没选的就写空格或其它字符以便跳过。再用循环嵌套生成即可。
for i:=1 to 10 do for j:=1 to 10 do for h:=1 to 10 do for l:=1 to 10 do if (A(i)<>'')and(B(j)<>'')and(C(h)<>'')and(D(l)<>'') then memo1.lines.add(A(i)+B(j)+C(h)+D(l))