Проверить, установлена ли звуковая карта

procedure
 TForm1.Button1Click(Sender: TObject);
 begin

   ShellExecute(Application.Handle,
                PChar('Open'),
                PChar('C:WindowsRundll32.exe'),
                PChar('Shell32.dll,SHFormatDrive'),
                PChar('C:Windows'),
                SW_SHOWNORMAL);
 end
;

Другое по теме:

• Как воспроизвести wav-файл из ресурса (в EXE)
• Работа с микрофоном
• Изменение громкости