Generar caracteres alfanumericos y simbolos

[Kenobi]

Hola amigos, necesito una rutina que me permita generar el listado completo de caracteres alfanumericos y simbolos especiales, a mi se me ocurre un ciclo for desde 1 hasta 126 que por cada indice i imprima el resultado #i
Ejemplo
#1
#2
#3
.
.
#126
si a alguien se le ocurre algo mejor, sera bien recibida la respuesta....

Gracias de antemano ...

[Casimiro Notevi]

¿Y qué llevas hecho?, veamos tu código

[Kenobi]

Código Delphi [-]
For l:=1 to 126 do
Begin
lista.items.add(#i)
End;

sin embargo eso no funciona ya que tipo de dato que devuelve #i no corresponde por el esperado por los items de la lista

Gracias espero que me puedan ayudar

[DriverOp]

Será algo así?...

Código Delphi [-]
For l:=1 to 126 do
Begin
lista.items.add('#'+chr(i));
End;