var
i,j,k,l,m,n,z: byte;
begin
for i:= 2 to 9 do
for j:= 2 to 9 do
for k:= 2 to 9 do
for l:= 2 to 9 do
for m:= 2 to 9 do
for n:= 2 to 9 do
for z:= 2 to 9 do
begin
application.ProcessMessages;
listbox1.Items.Add(
inttostr(i)+inttostr(j)+
inttostr(k)+inttostr(l)+
inttostr(m)+inttostr(n)+
inttostr(n)+inttostr(z)
