Как Определить Наличие/отсутствие Звуковой Платы?

[Sascha]

Как определить наличие/отсутствие звуковой платы?

uses
  ..., MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
   if WaveOutGetNumDevs > 0 then
      Form1.Caption := 'Звуковая плата найдена'
   else
      Form1.Caption := 'Звуковая плата не найдена';
end;