Vérifier si une carte son est installée

uses mmsystem;
function Soundkarte:Boolean;
begin
Result := WaveOutGetNumDevs >0;
end;