object GetPathForm: TGetPathForm
  Left = 303
  Top = 106
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'GetPathForm'
  ClientHeight = 268
  ClientWidth = 273
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Frame: TGroupBox
    Left = 8
    Top = 12
    Width = 257
    Height = 217
    Caption = 'SELECT PATH'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Directories: TDirectoryListBox
      Left = 8
      Top = 44
      Width = 241
      Height = 165
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnExit = DirectoriesExit
    end
    object Drives: TDriveComboBox
      Left = 8
      Top = 24
      Width = 241
      Height = 19
      DirList = Directories
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object OKButton: TButton
    Left = 157
    Top = 236
    Width = 52
    Height = 25
    Caption = '&OK'
    Default = True
    TabOrder = 1
    OnClick = OKButtonClick
  end
  object CancelButton: TButton
    Left = 213
    Top = 236
    Width = 52
    Height = 25
    Cancel = True
    Caption = '&Cancel'
    TabOrder = 2
    OnClick = CancelButtonClick
  end
end