object RecordNewSoundfrm: TRecordNewSoundfrm
  Left = 397
  Top = 209
  Width = 324
  Height = 342
  Caption = 'Record New Sound'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 167
    Height = 24
    Caption = 'Record New Sound'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 40
    Width = 54
    Height = 13
    Caption = 'Output file :'
  end
  object SpeedButton1: TSpeedButton
    Left = 256
    Top = 56
    Width = 23
    Height = 22
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
      00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
      00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
      00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
      0003737FFFFFFFFF7F7330099999999900333777777777777733}
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object gravar: TSpeedButton
    Left = 201
    Top = 118
    Width = 80
    Height = 25
    Hint = 'Start Recording'
    Caption = 'Record'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333000003333333333F777773FF333333008877700
      33333337733FFF773F33330887000777033333733F777FFF73F330880F9F9F07
      703337F37733377FF7F33080F00000F07033373733777337F73F087F0091100F
      77037F3737333737FF7F08090919110907037F737F3333737F7F0F0F0999910F
      07037F737F3333737F7F0F090F99190908037F737FF33373737F0F7F00FF900F
      780373F737FFF737F3733080F00000F0803337F73377733737F330F80F9F9F08
      8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
      3333333773FFFF77333333333000003333333333377777333333}
    NumGlyphs = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Spacing = 18
    OnClick = gravarClick
  end
  object parar: TSpeedButton
    Left = 201
    Top = 143
    Width = 80
    Height = 25
    Hint = 'Stop Recording'
    Caption = 'Stop'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333333333333333333FFFFFFFFFFFF3330000000000
      003333888888888888F33300000000000033338F3333333338F3330000000000
      0033338F3333333338F33300000000000033338F3333333338F3330000000000
      0033338F3333333338F33300000000000033338F3333333338F3330000000000
      0033338F3333333338F33300000000000033338F3333333338F3330000000000
      0033338F3333333338F33300000000000033338F3333333338F3330000000000
      0033338FFFFFFFFFF8F333000000000000333388888888888833333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Spacing = 31
    OnClick = pararClick
  end
  object marxar: TSpeedButton
    Left = 201
    Top = 191
    Width = 80
    Height = 25
    Hint = 'Exit'
    Caption = 'Exit'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Spacing = 32
    OnClick = marxarClick
  end
  object SpeedButton2: TSpeedButton
    Left = 8
    Top = 242
    Width = 185
    Height = 25
    Hint = 'Check Windows  Volume Setup'
    Caption = 'Windows Volume Control Panel'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333FFF3333F333333300033339333333337773F33733333330008033
      933333333737F7F37333333307078733333933337337373F3337333077088803
      33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
      9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
      99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
      93333773F377337F73F333308807880339333337F37F337F373F333088077803
      339333373F73F37333733333087777333339333373F7F7F33F37333330807033
      933333333737F73373F333333300033339333333337773333733}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton2Click
  end
  object test: TSpeedButton
    Left = 201
    Top = 93
    Width = 80
    Height = 25
    Hint = 'Use Vumeters to Test Input Signal'
    Caption = 'Test Input'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333000003333333333F777773FF333333008877700
      33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
      703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
      77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
      07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
      780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
      8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
      3333333773FFFF77333333333000003333333333377777333333}
    NumGlyphs = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Spacing = -1
    OnClick = testClick
  end
  object Edit1: TEdit
    Left = 8
    Top = 56
    Width = 247
    Height = 21
    TabOrder = 0
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 88
    Width = 89
    Height = 129
    Caption = 'Frequency'
    ItemIndex = 0
    Items.Strings = (
      '11025'
      '22050'
      '44100'
      'Other')
    TabOrder = 1
    OnClick = RadioGroup1Click
  end
  object RadioGroup2: TRadioGroup
    Left = 104
    Top = 88
    Width = 89
    Height = 65
    Caption = 'Channels'
    ItemIndex = 0
    Items.Strings = (
      'Mono'
      'Stereo')
    TabOrder = 2
    OnClick = RadioGroup2Click
  end
  object RadioGroup3: TRadioGroup
    Left = 104
    Top = 152
    Width = 89
    Height = 65
    Caption = 'Bits'
    ItemIndex = 0
    Items.Strings = (
      '8'
      '16')
    TabOrder = 3
    OnClick = RadioGroup3Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 289
    Width = 316
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Text = '0 Bytes'
        Width = 300
      end>
    SimplePanel = False
  end
  object Edit2: TEdit
    Left = 32
    Top = 186
    Width = 41
    Height = 21
    MaxLength = 5
    TabOrder = 5
    Text = '11025'
    Visible = False
    OnEnter = Edit2Enter
    OnExit = Edit2Exit
    OnKeyPress = Edit2KeyPress
  end
  object StatusBar2: TStatusBar
    Left = 0
    Top = 270
    Width = 316
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Text = '00:00:00'
        Width = 300
      end>
    SimplePanel = False
  end
  object VumeterPanel: TPanel
    Left = 289
    Top = 0
    Width = 27
    Height = 270
    Align = alRight
    BevelInner = bvLowered
    TabOrder = 7
    object LabelVumeter: TLabel
      Left = 4
      Top = 234
      Width = 21
      Height = 13
      Caption = 'L R'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Gauge1: TGauge
      Left = 3
      Top = 3
      Width = 10
      Height = 230
      ForeColor = clBlue
      Kind = gkVerticalBar
      Progress = 0
      ShowText = False
    end
    object Gauge2: TGauge
      Left = 14
      Top = 3
      Width = 10
      Height = 230
      ForeColor = clRed
      Kind = gkVerticalBar
      Progress = 0
      ShowText = False
    end
  end
  object ObriraWF: TCheckBox
    Left = 8
    Top = 221
    Width = 257
    Height = 17
    Caption = 'Open automatically in Wave Flow after recording'
    TabOrder = 8
  end
  object SaveDialog1: TSaveDialog
    Filter = 'RIFF Wave Audio Files (.wav)|.wav'
    Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 280
    Top = 24
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 248
    Top = 4
  end
end