Kod
//ornek kullanim: DuzenliKelimeUreteci(0,5);
procedure DuzenliKelimeUreteci(basla,hane:integer);
const v='0123456789';//karakter dizesi degistirilebilir (kodda da ufak birkac degisiklik ister)
var i,c:integer;
  s:string;
begin
if basla=0then for c:=1to length(v)do form1.listbox1.items.Add(v[c]);
if length(form1.ListBox1.Items[form1.listbox1.Items.Count-1])=hane then exit;
for i:=basla to form1.listbox1.Items.Count-1do
  for c:=1to length(v)do
    form1.listbox1.items.Add(form1.listbox1.items[i]+v[c]);
s:=inttostr(form1.listbox1.Items.Count);
s[1]:='0';//integer'a gore ilk karakteri silmis olduk.
DuzenliKelimeUreteci(strtoint(s),hane);
end;