Как сделать, чтобы по нажатию клавиши вводился не символ, а строка?

[Сид]

Нужно, чтобы при нажатии определённой буквы(русской) вместо неё в Memo вводилась определённая строка.Создал массив,в котором каждому русской букве соответствует число, полученное с помощью функции chr() и необходимая строка.При нажатии определённой клавиши сверяю её Key-код c chr().Но chr('Л')<>Key:='Л'.А обрабатывать каждую кнопку отдельно уж очень не хочется. Есть ли выход?

[Миша]

Это подойдёт

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'а':Memo1.SelText:='Tararara';
{ ... }
else

end;

[Миша]

Создал массив,в котором каждому русской букве соответствует число, полученное с помощью функции chr()

Может Вы имели в виду функции Ord()???

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Label1.Caption:=IntToStr(Ord(Key));
end;

[mihali4]

А нельзя было сразу назвать тему осмысленно?
Не "клавиатура", а так, как я отредактировал?

[Сид]

Сообщение от Миша

Может Вы имели в виду функции Ord()???

Я имел в виду на выходе функции chr(198) получаем 'Ж', а
if Key = #198 then
begin end;
не поймает клавишу Ж.

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор
Отказываемся читать правила? Получаем...

[Kotofff]

не поймает клавишу Ж.

А если нажать CAPS LOCK или совместно с клавишей Shift ?
Или тогда уж условие шире ставить :

if (Key = #198) or (Key = #230) then
begin end;

Тогда и заглавная "Ж" и малая "ж" буквы будут "ловиться".