Проверь, правильно ли ты всё написал.
Вот я сделал сейчас так:
На объект 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, т.к. с маленькими буквами не работает =)