Самый очевидный способ - задать таблицу соответствия:
Код:
type TCode = record
decodeChar, encodeChar: Char;
end;
const MAX_SYMBOLS = 27;
var codeTable: array[0..MAX_SYMBOLS - 1] of TCode;
и заполнить её:
Код:
codeTable[0].decodeChar := 'A';
codeTable[0].encodeChar := '1';
codeTable[1].decodeChar := 'B';
codeTable[1].encodeChar := '2';
и т.д.
Останется организовать перехват ввода в левое окно по ивенту onKeyUp.