uses
  {...,} MMSystem;

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