Verificar se existe placa de som instalada

{Para testar se há uma placa de som instalada no sistema, use a função abaixo (retorna True se há uma placa de som; False em outro caso):}

function TestaSom : Boolean;
begin
Result := (WaveOutGetNumDevs > 0);
end;