Поиск звуковой платы

uses MMsystem;

begin
  if WaveOutGetNumDevs>0 then
    Result:='Yes'
  else
    Result:='No';
end;