object MainForm: TMainForm
  Left = 200
  Top = 117
  AutoScroll = False
  Caption = 'Find and Replace Demonstration'
  ClientHeight = 314
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'System'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 120
  TextHeight = 20
  object ListBox1: TListBox
    Left = 70
    Top = 20
    Width = 151
    Height = 271
    ItemHeight = 20
    Items.Strings = (
      'BlueEdit'
      'BlueLabel'
      'BlueSB'
      'ClearBitBtn'
      'CloseBitBtn'
      'ColorEdit'
      'ColorLabel'
      'FileAbout'
      'FileExit'
      'FileMenu'
      'GreenEdit'
      'GreenLabel'
      'GreenSB')
    TabOrder = 0
  end
  object FindBitBtn: TBitBtn
    Left = 290
    Top = 150
    Width = 111
    Height = 41
    Caption = '&Find...'
    TabOrder = 1
    OnClick = FindBitBtnClick
  end
  object CloseBitBtn: TBitBtn
    Left = 290
    Top = 250
    Width = 111
    Height = 41
    TabOrder = 2
    Kind = bkClose
  end
  object ReplaceBitBtn: TBitBtn
    Left = 290
    Top = 200
    Width = 111
    Height = 41
    Caption = '&Replace...'
    TabOrder = 3
    OnClick = ReplaceBitBtnClick
  end
  object FindDialog: TFindDialog
    OnFind = FindDialogFind
    Left = 208
    Top = 16
  end
  object ReplaceDialog: TReplaceDialog
    Options = [frDown, frDisableMatchCase, frDisableUpDown, frDisableWholeWord]
    OnFind = ReplaceDialogFind
    OnReplace = ReplaceDialogReplace
    Left = 264
    Top = 56
  end
end