object EditForm: TEditForm
  Left = 213
  Top = 168
  Width = 500
  Height = 276
  ActiveControl = RichEdit
  Caption = 'Untitled'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  Position = poDefault
  Scaled = False
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 16
  object RichEdit: TRichEdit
    Left = 0
    Top = 0
    Width = 492
    Height = 249
    Align = alClient
    BorderStyle = bsNone
    Color = clWhite
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    HideSelection = False
    HideScrollBars = False
    MaxLength = 200000000
    ParentCtl3D = False
    ParentFont = False
    PlainText = True
    PopupMenu = PopupMenu
    ScrollBars = ssVertical
    TabOrder = 0
    WantTabs = True
    OnChange = RichEditChange
    OnKeyDown = RichEditKeyDown
    OnKeyUp = RichEditKeyUp
    OnMouseDown = RichEditMouseDown
    OnSelectionChange = RichEditSelectionChange
    OnProtectChange = RichEditProtectChange
  end
  object PopupMenu: TPopupMenu
    Left = 22
    Top = 12
    object Undo2: TMenuItem
      Caption = '&Undo'
      Enabled = False
      Hint = 'Reverses last change made to text'
      ShortCut = 0
      OnClick = Undo2Click
    end
    object MenuItem1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Cut2: TMenuItem
      Caption = 'Cu&t'
      Enabled = False
      Hint = 'Cuts selection to Clipboard'
      ShortCut = 0
      OnClick = Cut2Click
    end
    object Copy2: TMenuItem
      Caption = '&Copy'
      Enabled = False
      Hint = 'Copies selection to Clipboard'
      ShortCut = 0
      OnClick = Copy2Click
    end
    object Paste2: TMenuItem
      Caption = '&Paste'
      Hint = 'Inserts Clipboard contents'
      ShortCut = 0
      OnClick = Paste2Click
    end
    object Delete2: TMenuItem
      Caption = '&Delete'
      Hint = 'Erases selection'
      ShortCut = 0
      OnClick = Delete2Click
    end
    object MenuItem2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object SelectAll2: TMenuItem
      Caption = 'Select &All'
      Enabled = False
      Hint = 'Selects entire file'
      ShortCut = 0
      OnClick = SelectAll2Click
    end
  end
end