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;