Uses mmSystem;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
if SoundCardPresent=True then
ShowMessage('Carte son installé')
else
ShowMessage('Carte son non installé');
end;