[PS11011010]

Я, к сожалению, не совсем все понимаю в твоих кодах, поэтому накидаю общую схему действий.
1. Считываешь строку из текстового поля

Код:

input:=Edit1.text;

2. Создаем цикл для перестановки символов каждой строки (насколько я заметил, у тебя не совсем шифр Цезаря, т.е. число позиций сдвига регулируется. Будем хранить это значение в переменной dx)

Код:

for i:=0 to length(input)-1 do
 output[i]:=ord(byte(input[i])-224+dx);

3. Выводим результат.