如何实现输入文字时带有声音？(50分)

UP

带声音让人烦，
uses mmsystem
onkeydown()

sndplaysound函数，播放声音

试了一下，声音比较单一。
还要，这个函数在Delphi的help中怎么没有？

//播放声音
procedure myplaySound(const fileName: string; HInstance: LongWord; isLoop: Boolean);
begin //
if FileExists(fileName) then
begin
if not isLoop then
PlaySound(pchar(fileName), HInstance, 0 or SND_FILENAME or SND_ASYNC)
else
PlaySound(pchar(fileName), HInstance, 0 or SND_FILENAME or SND_ASYNC or SND_LOOP);
end;
end;

up

sdk help中有！