Comparar un caracter de una caja de texto con un rango

[roman]

So sólo te interesa un caracter, toma Edit1.Text[1] (no sin antes verificar que la cadena no está vacía). En lugar de 'a'..'x' debiera ser ['a'..'x'].

// Saludos