Multimedia Delphi

Title: How to check if a soundcard is installed
uses
MMSystem;
function SoundCardAvailable: Boolean;
begin
Result := WaveOutGetNumDevs 0;
end;