object Findprocedure: TFindprocedure
  Left = 599
  Top = 186
  Width = 182
  Height = 324
  Caption = 'Find Procedure'
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Scaled = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object ListBox1: TListBox
    Left = 0
    Top = 0
    Width = 174
    Height = 257
    Align = alClient
    ItemHeight = 16
    Sorted = True
    TabOrder = 0
    OnClick = ListBox1Click
    OnDblClick = ListBox1DblClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 257
    Width = 174
    Height = 40
    Align = alBottom
    TabOrder = 1
    object OKBtn: TButton
      Left = 1
      Top = 2
      Width = 84
      Height = 31
      Caption = 'Goto'
      Default = True
      ModalResult = 1
      TabOrder = 0
      OnClick = OKBtnClick
    end
    object CancelBtn: TButton
      Left = 89
      Top = 2
      Width = 80
      Height = 31
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 1
      OnClick = CancelBtnClick
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 136
    Top = 220
  end
end