object DirBox: TDirBox
  Left = 257
  Top = 142
  ActiveControl = DirectoryListBox1
  BorderStyle = bsDialog
  Caption = 'Verzeichnis ausw�hlen'
  ClientHeight = 233
  ClientWidth = 305
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poDefault
  TextHeight = 13
  object pfad: TLabel
    Left = 7
    Top = 5
    Width = 3
    Height = 13
    FocusControl = DirectoryListBox1
    Transparent = True
  end
  object Label1: TLabel
    Left = 7
    Top = 188
    Width = 3
    Height = 13
    FocusControl = DriveComboBox1
    Transparent = True
  end
  object Label2: TLabel
    Left = 35
    Top = 5
    Width = 186
    Height = 13
    AutoSize = False
    Caption = 'f:\delphi\vcl'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object okbtn: TButton
    Left = 230
    Top = 19
    Width = 69
    Height = 25
    Caption = '&OK'
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 2
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 6
    Top = 20
    Width = 216
    Height = 164
    DirLabel = Label2
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 0
  end
  object Button1: TButton
    Left = 230
    Top = 47
    Width = 69
    Height = 25
    Cancel = True
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 3
  end
  object DriveComboBox1: TDriveComboBox
    Left = 7
    Top = 203
    Width = 217
    Height = 22
    DirList = DirectoryListBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnChange = DriveComboBox1Change
  end
end