object FormDirBox: TFormDirBox
  Left = 250
  Top = 218
  BorderStyle = bsDialog
  Caption = 'Directory selection'
  ClientHeight = 220
  ClientWidth = 391
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 192
    Width = 28
    Height = 13
    Caption = 'Drive:'
  end
  object Label2: TLabel
    Left = 8
    Top = 16
    Width = 162
    Height = 13
    Caption = 'Double-click a directory to select it'
  end
  object DirList: TDirectoryListBox
    Left = 7
    Top = 32
    Width = 288
    Height = 145
    ItemHeight = 16
    TabOrder = 0
    OnChange = DirListChange
  end
  object DriveCombo: TDriveComboBox
    Left = 50
    Top = 191
    Width = 191
    Height = 19
    DirList = DirList
    TabOrder = 1
  end
  object ButtonCancel: TButton
    Left = 305
    Top = 151
    Width = 75
    Height = 25
    Caption = '&Cancel'
    TabOrder = 2
    OnClick = ButtonCancelClick
  end
  object ButtonOK: TButton
    Left = 304
    Top = 183
    Width = 75
    Height = 25
    Caption = '&OK'
    ModalResult = 1
    TabOrder = 3
    OnClick = ButtonOKClick
  end
  object ButtonCreateDir: TButton
    Left = 304
    Top = 32
    Width = 75
    Height = 25
    Caption = 'Create &Dir'
    TabOrder = 4
    OnClick = ButtonCreateDirClick
  end
end