object ShieldForm: TShieldForm
  Left = 400
  Top = 155
  Width = 472
  Height = 528
  Caption = 'Choose Shield'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object LShield: TLabel
    Left = 10
    Top = 10
    Width = 41
    Height = 16
    Caption = '&Shield:'
    FocusControl = ShieldList
  end
  object ShieldList: TListBox
    Left = 10
    Top = 30
    Width = 444
    Height = 389
    Columns = 7
    IntegralHeight = True
    ItemHeight = 55
    Style = lbOwnerDrawFixed
    TabOrder = 0
    OnDblClick = ShieldListDblClick
    OnDrawItem = ShieldListDrawItem
  end
  object OK: TBitBtn
    Left = 90
    Top = 453
    Width = 95
    Height = 33
    TabOrder = 1
    Kind = bkOK
  end
  object Cancel: TBitBtn
    Left = 277
    Top = 453
    Width = 95
    Height = 33
    TabOrder = 2
    Kind = bkCancel
  end
end