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

        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Lines.Strings = (
          '')
        ParentFont = False
        TabOrder = 0
       end
      end
      object OrlovOpenDialog: TOpenDialog
       Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
       Left = 16
       Top = 465
      end
      object OrlovSaveDialog: TSaveDialog
       Left = 64
       Top = 465
      end
      object OrlovMainMenu1: TMainMenu
       object miOrlovFile: TMenuItem
        Caption = 'File'
        object miClear: TMenuItem
          Caption = 'Clear'
          OnClick = miClearClick
        end
        object miOpen: TMenuItem
          Caption = 'Open'
          OnClick = miOpenClick
        end
        object miSave: TMenuItem
          Caption = 'Save'
          OnClick = miSaveClick
        end
        object miSaveAs: TMenuItem
          Caption = 'Save As'
          OnClick = miSaveAsClick
        end
        object miExit: TMenuItem
          Caption = 'Exit'
          OnClick = miExitClick
        end
        object miEdit: TMenuItem
          Caption = 'Edit'
          OnClick = miEditClick
        end
       end
       object miOrlovTextFiles: TMenuItem
120