object DemoSysMenu: TDemoSysMenu
  Left = 112
  Top = 103
  BorderStyle = bsSingle
  Caption = 'System Menu Component'
  ClientHeight = 273
  ClientWidth = 427
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  Visible = True
  TextHeight = 16
  object Label1: TLabel
    Left = 117
    Top = 54
    Width = 83
    Height = 13
    Caption = 'Menu Caption:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 25
    Top = 97
    Width = 139
    Height = 55
    AutoSize = False
    Caption = 
      'Easily add new items to any form'#39's system menu with the system m' +
      'enu component.'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 25
    Top = 159
    Width = 139
    Height = 46
    AutoSize = False
    Caption = 
      'Once you have added a new item, try selecting it from the system' +
      ' menu.'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 209
    Top = 49
    Width = 121
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 229
    Top = 178
    Width = 121
    Height = 26
    Caption = '&Add New Item'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
      007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
      7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
      99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object GroupBox1: TGroupBox
    Left = 208
    Top = 97
    Width = 170
    Height = 76
    Caption = 'Properties...'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object ckbchecked: TCheckBox
      Left = 36
      Top = 22
      Width = 97
      Height = 17
      Caption = 'Checked'
      TabOrder = 0
    end
    object ckbenabled: TCheckBox
      Left = 36
      Top = 44
      Width = 97
      Height = 17
      Caption = 'Enabled'
      State = cbChecked
      TabOrder = 1
    end
  end
  object SysMenu1: TSysMenu
    MenuPos = 0
    ParentHandle = 0
    MenuChecked = mtUnChecked
    MenuBar = mtnone
    MenuEnabled = mtEnabled
    MenuItemtype = mtString
    Left = 358
    Top = 36
  end
end