Generar caracteres alfanumericos y simbolos

[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