Delphi 7

[jandrorm]

Hey muchisimas gracias , si me a sido muy util tu respuesta.

Y tambien para el retroceso y suprimir: Alfabeto_Y_Numero = ['a'..'z','A'..'Z','0'..'9',#32,#8];