object Findprocedure: TFindprocedure
  Left = 340
  Top = 411
  Width = 183
  Height = 327
  Caption = 'Find Procedure'
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Scaled = False
  OnCreate = FormCreate
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object ListBox1: TListBox
    Left = 0
    Top = 0
    Width = 175
    Height = 259
    Align = alClient
    ItemHeight = 16
    Sorted = True
    TabOrder = 0
    OnClick = OKBtnClick
  end
  object xPanel1: TxPanel
    Left = 0
    Top = 259
    Width = 175
    Height = 41
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 1
    data_int = 0
    language = 2
    object xButton1: TxButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Go'
      TabOrder = 0
      OnClick = OKBtnClick
      Caption_English = '&Go'
      Caption_German = 'Gehe zu'
      data_int = 0
      language = 2
    end
    object xButton2: TxButton
      Left = 92
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Cancel'
      TabOrder = 1
      OnClick = CancelBtnClick
      Caption_English = '&Cancel'
      Caption_German = '&Abbrechen'
      data_int = 0
      language = 2
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 136
    Top = 220
  end
end