object DirectoryForm: TDirectoryForm Left = 245 Top = 108 BorderStyle = bsDialog Caption = 'Copy ... To...' ClientHeight = 193 ClientWidth = 416 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object OKBtn: TButton Left = 255 Top = 12 Width = 75 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 0 end object CancelBtn: TButton Left = 335 Top = 12 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object elDrive: TDriveComboBox Left = 8 Top = 16 Width = 241 Height = 19 DirList = elDirectory TabOrder = 2 TextCase = tcUpperCase end object elDirectory: TDirectoryListBox Left = 8 Top = 48 Width = 401 Height = 137 ItemHeight = 16 TabOrder = 3 end object elGroup: TGroupBox Left = 80 Top = 192 Width = 265 Height = 41 TabOrder = 4 Visible = False object elAll: TRadioButton Left = 8 Top = 12 Width = 81 Height = 17 Caption = 'All Files *.*' Checked = True Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 TabStop = True OnClick = elAllClick end object elCertainExt: TRadioButton Left = 104 Top = 12 Width = 97 Height = 17 Caption = 'Certain Ext *.' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = elCertainExtClick end object elEditExt: TEdit Left = 200 Top = 12 Width = 57 Height = 21 Enabled = False MaxLength = 3 TabOrder = 2 end end end