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

      object miCreateFileForm: TMenuItem
       Caption = 'Create'
       OnClick = miCreateFileFormClick
      end
      object miShowFileForm: TMenuItem
       Caption = 'Show'
       OnClick = miShowFileFormClick
      end
      object miHideFileForm: TMenuItem
       Caption = 'Hide'
       OnClick = miHideFileFormClick
      end
      object miCloseFileForm: TMenuItem
       Caption = 'Close'
       OnClick = miCloseFileFormClick
      end
      object miDestroyFileForm: TMenuItem
       Caption = 'Destroy'
       OnClick = miDestroyFileFormClick
      end
      object miExitFileForm: TMenuItem
       Caption = 'Exit'
       OnClick = miExitFileFormClick
      end
     end
     object miOrlovGraphicForm: TMenuItem
      Caption = 'Graphic'
      object miCreateGraphicForm: TMenuItem
       Caption = 'Create'
       OnClick = miCreateGraphicFormClick
      end
      object miShowGraphicForm: TMenuItem
       Caption = 'Show'
       OnClick = miShowGraphicFormClick
      end
      object miHideGraphicForm: TMenuItem
       Caption = 'Hide'
       OnClick = miHideGraphicFormClick
      end
      object miCloseGraphicForm: TMenuItem
       Caption = 'Close'
       OnClick = miCloseGraphicFormClick
      end
      object miDestroyGraphicForm: TMenuItem
       Caption = 'Destroy'
       OnClick = miDestroyGraphicFormClick
      end
95