object dirForm: TdirForm Left = 571 Top = 190 BorderIcons = [] BorderStyle = bsDialog Caption = 'WAV directory' ClientHeight = 278 ClientWidth = 165 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] FormStyle = fsStayOnTop OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object GroupBox: TGroupBox Left = 0 Top = 0 Width = 165 Height = 277 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object FileListBox: TFileListBox Left = 5 Top = 40 Width = 156 Height = 193 ItemHeight = 13 Mask = '*.WAV' TabOrder = 0 OnChange = FileListBoxChange end object FilterComboBox: TFilterComboBox Left = 5 Top = 16 Width = 156 Height = 21 FileList = FileListBox Filter = 'WAV files (*.WAV)|*.WAV|All files (*.*)|*.*' TabOrder = 1 end object closeBtn: TBitBtn Left = 5 Top = 240 Width = 156 Height = 33 Cancel = True Caption = 'Close' Default = True ModalResult = 2 TabOrder = 2 OnClick = closeBtnClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333000033337733333333333333333F333333333333 0000333911733333973333333377F333333F3333000033391117333911733333 37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333 911117111117333337F3337F733337F3000033333911111111733333337F3337 3333F7330000333333911111173333333337F333333F73330000333333311111 7333333333337F3333373333000033333339111173333333333337F333733333 00003333339111117333333333333733337F3333000033333911171117333333 33337333337F333300003333911173911173333333373337F337F33300003333 9117333911173333337F33737F337F33000033333913333391113333337FF733 37F337F300003333333333333919333333377333337FFF730000333333333333 3333333333333333333777330000333333333333333333333333333333333333 0000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end end end