]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ uses mmsystem;
function SoundCardExist:boolean;
begin
result:=WaveOutGetNumDevs >0;
end;