Я, к сожалению, не совсем все понимаю в твоих кодах, поэтому накидаю общую схему действий.
1. Считываешь строку из текстового поля
2. Создаем цикл для перестановки символов каждой строки (насколько я заметил, у тебя не совсем шифр Цезаря, т.е. число позиций сдвига регулируется. Будем хранить это значение в переменной dx)
Код:
for i:=0 to length(input)-1 do
output[i]:=ord(byte(input[i])-224+dx);
3. Выводим результат.