Высокоуровневые методы информатики и программирования. Сивохин А.В - 119 стр.

        object miExitGraphicForm: TMenuItem
          Caption = 'Exit'
          OnClick = miExitGraphicFormClick
        end
       end
       object miOrlovTableForm: TMenuItem
        Caption = 'Table'
        object miCreateTableForm: TMenuItem
          Caption = 'Create'
          OnClick = miCreateTableFormClick
        end
        object miShowTableForm: TMenuItem
          Caption = 'Show'
          OnClick = miShowTableFormClick
        end
        object miHideTableForm: TMenuItem
          Caption = 'Hide'
          OnClick = miHideTableFormClick
        end
        object miCloseTableForm: TMenuItem
          Caption = 'Close'
          OnClick = miCloseTableFormClick
        end
        object miDestroyTableForm: TMenuItem
          Caption = 'Destroy'
          OnClick = miDestroyTableFormClick
        end
        object miExitTableForm: TMenuItem
          Caption = 'Exit'
          OnClick = miExitTableFormClick
        end
       end
       object miOrlovHelpForm: TMenuItem
        Caption = 'Help'
        object miAbout: TMenuItem
          Caption = 'About'
          OnClick = miAboutClick
        end
        object miNoteBook: TMenuItem
          Caption = 'NoteBook'
          OnClick = miNoteBookClick
        end
       end
      end
     end //— 1. Конец описания главной формы.


96