uses

  ..., MMSystem;

procedure TForm1.Button1Click(Sender: TObject);

begin

   if WaveOutGetNumDevs > 0 then

      Form1.Caption := 'Звуковая плата найдена'

   else

      Form1.Caption := 'Звуковая плата не найдена';

end;