программа в Делфи на тему кодирование информации

нужна помощь,делаю программу в Делфи!! задача: программа должна кодировать русский текст на английскую раскладку.
Я если честно первый раз что то пишу в делфи,делала по методичке,но код не работает и я не знаю почему,если кто то может помочь,кто разбирается в этой теме,помогите пожалуйста.
var
str: String;
I: Integer;
begin
str:=Memo1.Lines.Text;
for I:=1 to Lenght(str) do
begin
if str[I]:='а' then
str[I]:='f';
if str[I]:='А' then
str[I]:='F';
if str[I]:='б' then
str[I]:=',';
if str[I]:='Б' then
str[I]:='<';
if str[I]:='в' then
str[I]:='d';
if str[I]:='В' then
str[I]:='D';
..и так далее весь алфавит
Memo2.Text:= str;
end;
Я если честно первый раз что то пишу в делфи,делала по методичке,но код не работает и я не знаю почему,если кто то может помочь,кто разбирается в этой теме,помогите пожалуйста.
10 июня 2015 в 00:17
Ближайшие курсы

Как начать свой путь в разработке?
Онлайн-курс
8
марта
Интенсив «Сегментация клиентов. С чего начать?»
Онлайн-курс
8
марта
Открытое онлайн собеседование со студентом на вакансию junior frontend-разработчика
Онлайн-курс
8
марта
Новые статьи

Что такое MVP и как к нему подступиться
326800

Обновляем программу обучения для менеджеров по продажам
40200

BI-системы: что это и зачем они нужны бизнесу
332200