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'ом процедуры

<a href="index2.html">Ссылка на вторую страницу</a>

mov ax, 0
mov cx, count
l1:
mov bx, mas1[ax]
add sum1, bx
inc ax
loop l1
mov ax, 0
mov cx, count
l2:
mov bx, mas2[ax]
add sum2, bx
inc ax
loop l2

cmp sum1, sum2
JG end1
JL end2

end2:
lea dx, [msg2]
jmp endprog

end1:
lea dx, [msg1]

endprog:
mov ah,9h
int 21h

mov ah,1h
int 21h
ret

end start

mov dx, offset msg2

var
   s:string;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
   s:=memo1.Text;
   showmessage(s);
end;