object frmSearch: TfrmSearch
  Left = 327
  Top = 235
  Width = 347
  Height = 320
  Caption = 'Find Unit'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object lblSearch: TLabel
    Left = 8
    Top = 80
    Width = 64
    Height = 13
    Caption = 'Search String'
  end
  object rgSearch: TRadioGroup
    Left = 8
    Top = 8
    Width = 321
    Height = 41
    Caption = 'Search Criteria'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Unit Code'
      'Unit Name')
    TabOrder = 0
  end
  object btnFind: TBitBtn
    Left = 256
    Top = 56
    Width = 75
    Height = 25
    Hint = 'To click next matching unit, click Find again'
    Caption = '&Find'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = btnFindClick
  end
  object btnCancel: TBitBtn
    Left = 200
    Top = 256
    Width = 75
    Height = 25
    Hint = 'Return to Main Form without any selection'
    Caption = '&Cancel'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = btnCancelClick
  end
  object edtSearch: TEdit
    Left = 8
    Top = 96
    Width = 321
    Height = 21
    TabOrder = 3
  end
  object cbSearch: TCheckBox
    Left = 8
    Top = 56
    Width = 241
    Height = 17
    Hint = 'Returns the first matching unit'
    Caption = 'Search from beginning of File'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 128
    Width = 321
    Height = 113
    Caption = 'Search Result'
    Enabled = False
    TabOrder = 5
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 47
      Height = 13
      Caption = 'Unit Code'
    end
    object Label2: TLabel
      Left = 88
      Top = 16
      Width = 36
      Height = 13
      Caption = 'Country'
    end
    object Label3: TLabel
      Left = 8
      Top = 64
      Width = 50
      Height = 13
      Caption = 'Unit Name'
    end
    object edtUnitCode: TEdit
      Left = 8
      Top = 32
      Width = 49
      Height = 21
      TabOrder = 0
    end
    object edtCountry: TEdit
      Left = 88
      Top = 32
      Width = 169
      Height = 21
      TabOrder = 1
    end
    object edtUnitName: TEdit
      Left = 8
      Top = 80
      Width = 305
      Height = 21
      TabOrder = 2
    end
  end
  object btnOK: TBitBtn
    Left = 72
    Top = 256
    Width = 75
    Height = 25
    Hint = 'Updates the main form with the current unit in Search Result'
    Caption = '&OK'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = btnOKClick
  end
end