object CDirectoryChoose: TCDirectoryChoose
  Left = 265
  Top = 199
  Width = 289
  Height = 277
  BorderIcons = [biSystemMenu, biHelp]
  Caption = 'You shouldn'#39't see this Text...'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  ShowHint = True
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Drive: TDriveComboBox
    Left = 4
    Top = 4
    Width = 185
    Height = 19
    Hint = 'Select a Drive'
    HelpContext = 110100
    TabOrder = 0
    TextCase = tcUpperCase
    OnChange = DriveChange
  end
  object Directory: TDirectoryListBox
    Left = 4
    Top = 28
    Width = 185
    Height = 125
    Hint = 'Select a Directory from here'
    HelpContext = 110200
    ItemHeight = 16
    TabOrder = 1
    OnChange = DirectoryChange
  end
  object btnOK: TNewButton
    Left = 200
    Top = 4
    Width = 75
    Height = 23
    HelpContext = 90100
    Caption = '&OK'
    ModalResult = 1
    TabOrder = 2
    OnClick = btnOKClick
  end
  object btnCancel: TNewButton
    Left = 200
    Top = 32
    Width = 75
    Height = 23
    HelpContext = 90200
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object btnCreateFolder: TNewButton
    Left = 200
    Top = 128
    Width = 75
    Height = 23
    HelpContext = 110500
    Caption = 'C&reate folder'
    TabOrder = 4
    OnClick = btnCreateFolderClick
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 204
    Width = 273
    Height = 45
    Hint = 'The last 10 Paths you have selected'
    HelpContext = 110400
    Caption = '&Previous selected paths'
    TabOrder = 5
    object drpPaths: TComboBox
      Left = 8
      Top = 16
      Width = 257
      Height = 21
      HelpContext = 110400
      Style = csDropDownList
      DropDownCount = 10
      ItemHeight = 13
      TabOrder = 0
      OnChange = drpPathsChange
    end
  end
  object grpPath: TGroupBox
    Left = 4
    Top = 160
    Width = 273
    Height = 37
    HelpContext = 110300
    Caption = 'Selected Path'
    TabOrder = 6
    object staPath: TLabel
      Left = 11
      Top = 16
      Width = 257
      Height = 17
      Hint = 'Currenty selected path'
      AutoSize = False
      Caption = 'staPath'
    end
  end
end