object Form2: TForm2 Left = 196 Top = 81 BorderStyle = bsDialog Caption = 'Please select a folder' ClientHeight = 297 ClientWidth = 278 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 278 Height = 297 Align = alClient TabOrder = 0 object DriveComboBox1: TDriveComboBox Left = 16 Top = 16 Width = 233 Height = 19 DirList = DLB1 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 TextCase = tcUpperCase end object DLB1: TDirectoryListBox Left = 16 Top = 40 Width = 233 Height = 201 ItemHeight = 16 TabOrder = 1 end object Button1: TButton Left = 56 Top = 256 Width = 75 Height = 25 Caption = '&��' TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 136 Top = 256 Width = 75 Height = 25 Caption = '&Cancel' TabOrder = 3 OnClick = Button2Click end end end