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