Uses ...,mmSystem;

...

Function CheckAudioCard : boolean;

Begin

 Result := WaveOutGetNumDevs>0;

end;