Generar caracteres alfanumericos y simbolos

[DriverOp]

Será algo así?...

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