s:=mmo1.Text; //Текст для шифровки
i:=Length(s); //Длина этого текста
pass:=edt1.Text; //Ключевое слово - пароль
j:=Length(pass); //Длина пароля
h:=Round(i/j); //Делим длину текста на длину пароля
for b:=1 to h do
pass:=pass+pass; //Складываем наш пароль h раз

2 - ыыыы
3 - ыыыыыыыы
4 - ыыыыыыыыыыыыыыыы
5 - ыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыы
6 - ыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыы
7 - ыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыы
...

try //Блок "Попытаться сделать..."
//Тут находится весь код TForm1.btn1Click, т.е. try идёт сразу после первого begin, хотя можно более локально организовать, но это надо искать проблемный участок
except //Ошибка?
//Тут можно написать on E:Класс_Ошибки do ... чтобы можно было бы получить дополнительную информацию об ошибке, но это сейчас нам не нужно...
             messagedlg('Не хватает памяти! Введите более длинный пароль или сократите шифруемый текст.',mtError,[mbOk],0); //Покажем сообщение
end; //Этот end идёт перед end'ом процедуры