object Form1: TForm1 Left = 199 Top = 67 Width = 467 Height = 341 Caption = 'Menu Demo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 56 Top = 56 Width = 345 Height = 209 TabOrder = 0 object Button1: TButton Left = 32 Top = 16 Width = 110 Height = 25 Caption = 'Create Main Menu' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 200 Top = 14 Width = 110 Height = 25 Caption = 'Create PopUp Menu' TabOrder = 1 OnClick = Button2Click end object Button3: TButton Left = 200 Top = 52 Width = 110 Height = 25 Caption = 'Add PopUp Items' Enabled = False TabOrder = 2 OnClick = Button3Click end object Button4: TButton Left = 32 Top = 54 Width = 110 Height = 25 Caption = 'Add Main Items' Enabled = False TabOrder = 3 OnClick = Button4Click end object Button5: TButton Left = 32 Top = 92 Width = 110 Height = 25 Caption = 'Add Sub-Menu' Enabled = False TabOrder = 4 OnClick = Button5Click end object Button6: TButton Left = 32 Top = 130 Width = 110 Height = 25 Caption = 'Add Vertical Break' Enabled = False TabOrder = 5 OnClick = Button6Click end object Button7: TButton Left = 200 Top = 90 Width = 110 Height = 25 Caption = 'Show PopUp' Enabled = False TabOrder = 6 OnClick = Button7Click end object Button8: TButton Left = 32 Top = 168 Width = 110 Height = 25 Caption = 'Add Horizontal Break' Enabled = False TabOrder = 7 OnClick = Button8Click end object Button9: TButton Left = 200 Top = 128 Width = 110 Height = 25 Caption = 'Assign OnClick Event' Enabled = False TabOrder = 8 OnClick = Button9Click end end end