[NumLock]

Код:

  if OpenDialog1.Execute then
    PlaySound(PAnsiChar(OpenDialog1.FileName), 0,
      SND_FILENAME or SND_ASYNC or SND_NODEFAULT);