еще подсказали такое
Код:
Arr [0..5] of char = ('А', 'Б', 'В', 'Г', 'Д');
//и второй массив, или строки
s1: string = ('АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШ');
s2: string = ('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
...
//обработчик первого TMemo
begin
i:= Pos(Key, s1);
if i>0 then
Memo2.Text := Memo2.Text + s2[i];
end;
Админ: пользуемся тегами для оформления кода!
но. я еле еле в делфи... если вас не затруднит вы не могли бы дать полный текст...
форма, на ней 2 мемо...