[neutro]

C выводом только букв ясно, только вот не понял, ты хочешь зашифровать буквы в цифры, а потом обратно?

if (ord(edit1.text[length(edit1.text)]) > 47) or (ord(edit1.text[length(edit1.text)]) < 58) then \\если символ цифра то...