object GetDirDlg: TGetDirDlg
  Left = 294
  Top = 144
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Select Directory...'
  ClientHeight = 289
  ClientWidth = 302
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object OKBtn: TBitBtn
    Left = 212
    Top = 248
    Width = 77
    Height = 27
    TabOrder = 0
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 8
    Top = 8
    Width = 281
    Height = 233
    ItemHeight = 16
    TabOrder = 1
  end
  object DriveComboBox1: TDriveComboBox
    Left = 8
    Top = 256
    Width = 137
    Height = 19
    TabOrder = 2
    OnChange = DriveComboBox1Change
  end
end