Code:
Uses 
MMSystem; 

Function IsSoundCardInstalled:Boolean; 
Begin 
Result:=(waveOutGetNumDevs>0); 
End;