object DemoFileFind: TDemoFileFind
  Left = 144
  Top = 96
  BorderStyle = bsSingle
  Caption = 'File Finder Demo'
  ClientHeight = 333
  ClientWidth = 427
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  Position = poScreenCenter
  Visible = True
  TextHeight = 16
  object Label1: TLabel
    Left = 57
    Top = 34
    Width = 94
    Height = 13
    Caption = 'Drive to Search:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 52
    Top = 72
    Width = 103
    Height = 13
    Caption = 'File to Search for:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 52
    Top = 99
    Width = 99
    Height = 13
    Caption = 'Search Results...'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 53
    Top = 251
    Width = 328
    Height = 63
    AutoSize = False
    Caption = 
      'Find a file anywhere on a disk with the File Finder Component.  ' +
      'Call the FileFirst method to find the first occurrence on the di' +
      'sk.  Subsequent occurrences are located by calling the FileNext ' +
      'method.'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DriveComboBox1: TDriveComboBox
    Left = 161
    Top = 32
    Width = 122
    Height = 19
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Edit1: TEdit
    Left = 161
    Top = 69
    Width = 121
    Height = 20
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object ListBox1: TListBox
    Left = 53
    Top = 122
    Width = 328
    Height = 123
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 2
  end
  object Button1: TButton
    Left = 296
    Top = 67
    Width = 89
    Height = 23
    Caption = 'Find &All'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = Button1Click
  end
  object FileFind1: TFileFind
    Sort = False
    SearchDrive = 'd:'
    Left = 8
    Top = 18
  end
end