object DirSelectDlg: TDirSelectDlg
  Left = 73
  Top = 36
  Width = 483
  Height = 300
  HelpContext = 68
  ActiveControl = Edit1
  BorderIcons = [biSystemMenu]
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnCreate = FormCreate
  OnHide = FormHide
  OnShow = DirectoryListBox1Click
  PixelsPerInch = 96
  TextHeight = 14
  object Bevel2: TBevel
    Left = 0
    Top = 0
    Width = 455
    Height = 268
    ParentShowHint = False
    ShowHint = True
  end
  object Bevel1: TBevel
    Left = 8
    Top = 40
    Width = 337
    Height = 220
    Shape = bsFrame
    IsControl = True
  end
  object Label1: TLabel
    Left = 19
    Top = 48
    Width = 133
    Height = 14
    AutoSize = False
    FocusControl = DirectoryListBox1
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 216
    Top = 48
    Width = 110
    Height = 14
    AutoSize = False
    FocusControl = DriveComboBox1
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 16
    Width = 89
    Height = 14
    AutoSize = False
    FocusControl = Edit1
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 240
    Top = 112
    Width = 157
    Height = 14
    Caption = 'C:\Delphi 2.0 Programme\QCW95'
    Visible = False
  end
  object OKBtn: TBitBtn
    Left = 358
    Top = 48
    Width = 85
    Height = 22
    Caption = 'OK'
    Default = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 3
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333377F3333333333000033334224333333333333
      337337F3333333330000333422224333333333333733337F3333333300003342
      222224333333333373333337F3333333000034222A22224333333337F337F333
      7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
      33333337F73337F337F33333000033A33333A222433333337333337F337F3333
      0000333333333A222433333333333337F337F33300003333333333A222433333
      333333337F337F33000033333333333A222433333333333337F337F300003333
      33333333A222433333333333337F337F00003333333333333A22433333333333
      3337F37F000033333333333333A223333333333333337F730000333333333333
      333A333333333333333337330000333333333333333333333333333333333333
      0000}
    Margin = 2
    NumGlyphs = 2
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 358
    Top = 80
    Width = 85
    Height = 22
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Kind = bkCancel
    Margin = 2
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object DriveComboBox1: TDriveComboBox
    Left = 216
    Top = 68
    Width = 121
    Height = 19
    DirList = DirectoryListBox1
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 16
    Top = 68
    Width = 193
    Height = 185
    DirLabel = Label4
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 1
    OnChange = DirectoryListBox1Click
    OnDblClick = DirectoryListBox1DblClick
  end
  object Edit1: TEdit
    Left = 112
    Top = 13
    Width = 331
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = Edit1Change
  end
end