[Sky.NET]

Проверь, правильно ли ты всё написал.

Вот я сделал сейчас так:
На объект Edit2 повесил событие.
Запустил. Ввёл D, нажал (Alt+D).
Всё работает.

Код:

procedure TForm2.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssAlt in Shift then
    if chr(Key) = Edit2.Text then
    ShowMessage('ОК');
end;

Кстати, в свойствах Edit поставь CharCase на ecUpperCase, т.к. с маленькими буквами не работает =)