Код:
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
memo2.Text:=memo2.Text+slovary(key);
end;
Сама функция выглядит так:
Код:
function slovary(income:char):char;
begin
result:=income;
case income of
's':result:='Z';
'a':result:='0';
'e':result:='1';
...........
//и так сколько угодно
end;
end;