Как прикрепить звук к клавише на клавиатуре?

[Fragiles]

В текстовом редакторе хочу прикрепить свой звук к кнопке на клавиатуре, что бы при вводе любой буквы или цифры воспроизводился мой звук в формате wav. Подскажите пожалуйста какую процедуру я должен написать?
Делал так не катит :

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=70 then
PlaySound(PChar(ExtractFilePath(Application.ExeName) + '\Wave\34.wav'),
                          0,SND_FILENAME OR SND_NOSTOP OR SND_ASYNC);
end;

end.

[eval]

что бы при вводе любой буквы или цифры

в коде это не заметно.

[Fragiles]

ну 70 это как бы код буквы F или А

[eval]

что говорит дебагер?

[Человек_Борща]

ну 70 это как бы код буквы F или А

Вот тут я вас обломаю. У русской А и английской F разные скан-коды.

[Fragiles]

if key=70 then вот в этом месте ошибка :
[Error] Unit1.pas(440): Incompatible types
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[eval]

тут переводчиков нет, на другой ресурс все ушли

чего в ошибке не понятно? что такое тип представляете?

[Fragiles]

Я так понимаю тип Сhar несовместим с чем то ?

[Пепел Феникса]

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

Я так понимаю тип Сhar несовместим с чем то ?

это вам не С, символ не есть число.

[Fragiles]

Ребят напишите пожалуйста как бы вы написали процедуру в моем случае. А то я неопытный студент)И стоит ли применять OnKeyPress и Playsound?