-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru"
                  "Поиск звуковых карт в системе"
-----------------------------------------------------------------------
Uses MMSystem;

{Определяем кол-во установленных звуковых плат}
  if WaveOutGetNumDevs > 0 Then
   {Этот блок предполагает, что найдена хотя бы одна звуковая плата}
   lblSCardCount.Caption := Format('Найдено звуковых плат - %d', [WaveOutGetNumDevs])
  else
   {Ни одной звуковой платы не обнаружено}
   lblSCardCount.Caption := 'Ни одной звуковой карты не обнаружено!';
-----------------------------------------------------------------------