Реакция на нажатие клавиши

[Janger]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=187) then  // условие если в Edit1 ввели символ (+)
ShowMessage('Вы нажали +')
else if (Key=187) then  // условие если в Edit1 ввели символ (=)
ShowMessage('Вы нажали =');
end;

Я пока не придумаю что сделать...
Я вот думаю, можно ещё проверить зажали ли клавиша Shift в это время, и если зажата, то это символ (+), а если не зажата, то это символ (=).
Но возможно, если куда более простой способ.
Подскажите.

[northener]

А чем не подходит OnKeyPress?

[Janger]

Сообщение от northener

А чем не подходит OnKeyPress?

Простите, я немного не понял к чему вы клоните

[northener]

Сообщение от Janger

Простите, я немного не понял к чему вы клоните

В событии OnKeyPress тебе передадут конкретный символ, который вводится. = или +

[Janger]

Сообщение от northener

В событии OnKeyPress тебе передадут конкретный символ, который вводится. = или +

Аааа... Всё, до меня дошло теперь!

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

Ведь в этом была вся хитрость --> (Key: Char)
А я даже и не сообразил
------------------------------------
Спасибо Вам большое!!