object frmDate: TfrmDate
  Left = 499
  Top = 540
  BorderStyle = bsToolWindow
  Caption = 'Select Expiration Date'
  ClientHeight = 190
  ClientWidth = 209
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object btnOk: TButton
    Left = 126
    Top = 160
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 0
  end
  object cmbMonth: TComboBox
    Left = 8
    Top = 8
    Width = 97
    Height = 21
    Style = csDropDownList
    DropDownCount = 12
    ItemHeight = 13
    Items.Strings = (
      'January'
      'Feburary'
      'March'
      'April'
      'May'
      'June'
      'July'
      'August'
      'September'
      'October'
      'November'
      'December')
    TabOrder = 1
    OnChange = cmbMonthChange
  end
  object btnCancel: TButton
    Left = 44
    Top = 160
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object cal: TCalendar
    Left = 8
    Top = 34
    Width = 192
    Height = 120
    StartOfWeek = 0
    TabOrder = 3
    OnChange = calChange
    OnDblClick = calDblClick
  end
  object txtYear: TEdit
    Left = 112
    Top = 8
    Width = 73
    Height = 21
    ReadOnly = True
    TabOrder = 4
    Text = '1900'
  end
  object udYear: TUpDown
    Left = 185
    Top = 8
    Width = 15
    Height = 21
    Associate = txtYear
    Min = 1900
    Max = 32000
    Position = 1900
    TabOrder = 5
    Thousands = False
    Wrap = False
    OnChanging = udYearChanging
    OnClick = udYearClick
  end
end