object EditForm: TEditForm
  Left = 264
  Top = 97
  Width = 323
  Height = 162
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  PixelsPerInch = 96
  PopupMenu = PopupMenu1
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  TextHeight = 16
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 315
    Height = 97
    Align = alClient
    BorderStyle = bsNone
    HideSelection = False
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 24
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        OnClick = New1Click
        ShortCutText = 'Ctrl+N'
      end
      object Open1: TMenuItem
        Caption = '&Open'
        OnClick = Open1Click
        ShortCutText = 'Ctrl+O'
      end
      object Close1: TMenuItem
        Caption = '&Close'
        OnClick = Close1Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object Save1: TMenuItem
        Caption = '&Save'
        OnClick = Save1Click
        ShortCutText = 'Ctrl+S'
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As...'
        OnClick = SaveAs1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print'
        OnClick = Print1Click
        ShortCutText = 'Ctrl+P'
      end
      object PrintSetup1: TMenuItem
        Caption = 'Prin&t Setup...'
        OnClick = PrintSetup1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 1
      OnClick = SetEditItems
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        OnClick = CutToClipboard
        ShortCutText = 'Ctrl+X'
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        OnClick = CopyToClipboard
        ShortCutText = 'Ctrl+C'
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        OnClick = PasteFromClipboard
        ShortCutText = 'Ctrl+V'
      end
      object Delete1: TMenuItem
        Caption = 'De&lete'
        OnClick = Delete
        ShortCutText = 'Ctrl+D'
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object SelectAll1: TMenuItem
        Caption = 'Select &All'
        OnClick = SelectAll
      end
    end
    object Character1: TMenuItem
      Caption = '&Character'
      GroupIndex = 1
      object Left1: TMenuItem
        Caption = '&Left'
        OnClick = AlignClick
      end
      object Right1: TMenuItem
        Caption = '&Right'
        OnClick = AlignClick
      end
      object Center1: TMenuItem
        Caption = '&Center'
        OnClick = AlignClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object WordWrap1: TMenuItem
        Caption = '&Word Wrap'
        Checked = True
        OnClick = SetWordWrap
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Font1: TMenuItem
        Caption = '&Font...'
        OnClick = SetFont
      end
    end
    object Compare1: TMenuItem
      Caption = 'C&ompare'
      GroupIndex = 1
      OnClick = Compare
    end
    object Options1: TMenuItem
      Caption = '&Options'
      GroupIndex = 1
      object Options2: TMenuItem
        Caption = '&Compare Options'
        OnClick = Options
      end
      object SaveOptions1: TMenuItem
        Caption = '&Save Options'
        OnClick = SaveOptions1Click
      end
    end
    object Window1: TMenuItem
      Caption = '&Window'
      GroupIndex = 1
      object Cascade1: TMenuItem
        Caption = '&Cascade'
        OnClick = Cascade1Click
      end
      object Tile1: TMenuItem
        Caption = '&Tile'
        OnClick = Tile1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = SetPopUpItems
    Left = 40
    Top = 24
    object Cut2: TMenuItem
      Caption = 'Cu&t'
      OnClick = CutToClipboard
    end
    object Copy2: TMenuItem
      Caption = '&Copy'
      OnClick = CopyToClipboard
    end
    object Paste2: TMenuItem
      Caption = '&Paste'
      OnClick = PasteFromClipboard
    end
  end
  object SaveFileDialog: TSaveDialog
    Filter = 'All files (*.*)|*.*|Text files (*.TXT)|*.TXT'
    Options = [ofHideReadOnly, ofNoReadOnlyReturn]
    Left = 64
    Top = 24
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 88
    Top = 24
  end
  object PrintDialog1: TPrintDialog
    Left = 112
    Top = 24
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 136
    Top = 24
  end
end