Нажатие на кнопку клавишей клавиатуры

функцией SendInput() например

Можете написать какой примерчик с использованием SendInput()

SendInput там же примеры и альтернативная ф-я keybd_event

Aden, уточните, что именно нужно: нажать кнопку в чужом приложении, или в своём?

В своем приложении нужно сделать, чтобы при нажатии на клавишу ESC запускалось сообщение.

void __fastcall TFrame_Kart::bbtCloseKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key == 27) {
MessageDlg("Выйти из формы.", mtInformation,TMsgDlgButtons()<<mbOK ,0);
}
}

Либо нужно прописывать в событии KeyDown самой формы ?
void __fastcall TfrMainJ_Gas_Equip::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key == 27) {
MessageDlg("Нажата клавиша ESC.", mtInformation,TMsgDlgButtons()<<mbOK ,0);
}
}

Какая версия билдера? Компонента ActionList присутствует?

Версия билдера 10.0.2288 компонент ActionList присутствует.

Спасибо большое. Нужно было в прописать в событии OnKeyPress и Key->Preview = true.
Может подскажите еще по одному вопросу. Хочу реализовать поиск по первым введенным буквам фамилии. На форме есть StringGrid, в который должен выводиться результат.
select * from ABON A where A.NAIM CONTAINING +DOP_SQL
где DOP_SQL='Кура'
Как сделать, чтобы при каждом нажатии клавиши запускалась процедура
if ((Key == 'А') ||(Key == 'а') )
{
DOP_SQL='А'
}