Ayuda con introducir sonido

[sagdec]

Buenas no se si este tema valla aqui o no soy nuevo en esto de delphi, lo que quiero saber es que en clase hicimos una aplicacion de realizar un helicoptero con opengl (algo sencillo el helicoptero) el punto esque le dimos rotacion con el evento de la forma OnKeyDown el codigo quedo asi:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
       //codigo scan tecla virtual
       VK_RIGHT : xe := xe + 0.1;
       VK_LEFT : xe := xe - 0.1;

       VK_UP : ye := ye + 0.1;
       VK_DOWN : ye := ye - 0.1;

       VK_PRIOR : ze := ze + 0.1;
       VK_NEXT : ze := ze - 0.1;
   end;
   refresh;
end;

lo que quiero esque al presionar la tecla izquiera o derecha o arriba o abajo meter un sonido, para ello tengo un codigo para introducir sonido mediante mmsystem el codigo que tengo es este:

Código Delphi [-]
sndPlaySound('c:\windows\media\Entrada de Windows XP.wav',0,SND_FILENAME or SND_ASYNC);

pero no se como implementarselo a la tecla, espero que me puedan ayudar se les agradece

salu2.