[hal1967]

Todo muy bien y didáctico pero

Ya el alfabeto está definido, la A es 65, la B 66 y así vamos.

Código Delphi [-]
Ord('A') -64 // da  1

Si quieres saber la posición de cualquier letra en la variable x sería

Código Delphi [-]
  Ord(x) - 64

o mejor

Código Delphi [-]
  Ord(upcase(x)) - 64

... y con el espaÑol hemos topado

Entonces, un arreglo o mejor un string que no es lo mismo pero es igual

Código Delphi [-]
const
  alfabeto : string = 'abcdefghijklmnñopqrstuvwxyz';

así la posicion de digamos la letra "j" la podemos encontrar con la función pos (o ansipos si tenemos algo de previsión)

Código Delphi [-]
  pos('j', alfabeto) // ---> debe dar 10 (si no conté mal)

Digamos que deseas viajar en el tiempo y volver a los 70, entonces necesitas poder ubicar "Ll" y "ch"

la solución de https://www.clubdelphi.com/foros/ima...ine=1443014892 ecfisa es la que vale.