object Form1: TForm1
  Left = 246
  Top = 126
  Width = 380
  Height = 369
  ActiveControl = FileListBox1
  Caption = 'Copy a File'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 8
    Top = 220
    Width = 353
    Height = 61
    Caption = 'Enter the Destingation File'
    TabOrder = 7
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 12
    Width = 353
    Height = 189
    Caption = 'Pick a File to Copy'
    TabOrder = 6
    object Label1: TLabel
      Left = 20
      Top = 16
      Width = 317
      Height = 13
      AutoSize = False
      Caption = 'F:\TECHEDIT\2Todd\COPY'
    end
  end
  object FileListBox1: TFileListBox
    Left = 28
    Top = 48
    Width = 145
    Height = 97
    FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
    ItemHeight = 16
    ShowGlyphs = True
    TabOrder = 0
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 196
    Top = 48
    Width = 145
    Height = 97
    DirLabel = Label1
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 1
  end
  object DriveComboBox1: TDriveComboBox
    Left = 196
    Top = 156
    Width = 145
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 2
  end
  object FilterComboBox1: TFilterComboBox
    Left = 28
    Top = 156
    Width = 145
    Height = 21
    FileList = FileListBox1
    Filter = 'All files (*.*)|*.*|Text files (*.txt)|*.txt'
    TabOrder = 3
  end
  object CopyBtn: TButton
    Left = 140
    Top = 296
    Width = 89
    Height = 33
    Caption = 'Copy'
    TabOrder = 4
    OnClick = CopyBtnClick
  end
  object DestEdit: TEdit
    Left = 28
    Top = 240
    Width = 317
    Height = 21
    TabOrder = 5
  end
end