object EditForm: TEditForm
  Left = 114
  Top = 158
  Width = 602
  Height = 295
  HelpContext = 8121
  Caption = 'Msg Editor'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  Position = poDefault
  Scaled = False
  Visible = True
  OnActivate = FormActivate
  OnClick = FormClick
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Memo1: TDCMemo
    Left = 0
    Top = 81
    Width = 594
    Height = 162
    Align = alClient
    PopupMenu = EditPopUp
    ScrollBars = ssVertical
    TabOrder = 1
    Wanttabs = True
    WordWrap = False
    OnChange = Memo1Change
    OnDblClick = Memo1DblClick
    OnKeyDown = Memo1KeyDown
    OnMouseDown = Memo1MouseDown
    OnMouseUp = Memo1MouseUp
    AutoSize = False
    CancelTask = False
    CurrX = 1
    CurrY = 1
    DblClickSel = dcsWord
    MonitorTask = [mtSearching]
    SearchDirection = sdDown
    SearchOptions = [soF3Next]
    SearchMode = smFind
    OnTaskError = Memo1TaskError
    OnTaskFail = Memo1TaskFail
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 594
    Height = 81
    HelpContext = 8121
    Align = alTop
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    PopupMenu = EditPopUp
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 58
      Height = 16
      Caption = 'Posted :'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 44
      Height = 16
      Caption = 'From :'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 40
      Width = 28
      Height = 16
      Caption = 'To :'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 56
      Width = 61
      Height = 16
      Caption = 'Subject :'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 352
      Top = 8
      Width = 50
      Height = 16
      Caption = 'Reply :'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 352
      Top = 24
      Width = 55
      Height = 16
      Caption = 'Refer# :'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 352
      Top = 40
      Width = 48
      Height = 16
      Caption = 'Status:'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 352
      Top = 56
      Width = 40
      Height = 16
      Caption = 'Conf :'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DateTime: TLabel
      Left = 80
      Top = 8
      Width = 60
      Height = 16
      Caption = 'DateTime'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object UpFrom: TLabel
      Left = 80
      Top = 24
      Width = 49
      Height = 16
      Caption = 'UpFrom'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object UpTo: TLabel
      Left = 80
      Top = 40
      Width = 35
      Height = 16
      Caption = 'UpTo'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Subject: TLabel
      Left = 80
      Top = 56
      Width = 45
      Height = 16
      Caption = 'Subject'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ReferNum: TLabel
      Left = 416
      Top = 24
      Width = 61
      Height = 16
      Caption = 'ReferNum'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Status: TLabel
      Left = 416
      Top = 40
      Width = 37
      Height = 16
      Caption = 'Status'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Conf: TLabel
      Left = 416
      Top = 56
      Width = 27
      Height = 16
      Caption = 'Conf'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object IDX: TLabel
      Left = 416
      Top = 8
      Width = 21
      Height = 16
      Caption = 'IDX'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 72
    Top = 192
    object Edit1: TMenuItem
      Tag = 1
      Caption = '&Edit'
      GroupIndex = 1
      HelpContext = 8221
      Hint = 'Edit text commands'
      ShortCut = 0
      object Undo2: TMenuItem
        Tag = 1
        Caption = '&Undo'
        GroupIndex = 1
        HelpContext = 8471
        Hint = 'Undo previous editting'
        ShortCut = 16474
        OnClick = Undo2Click
      end
      object N6: TMenuItem
        Caption = '-'
        GroupIndex = 1
        ShortCut = 0
      end
      object Copy1: TMenuItem
        Tag = 1
        Caption = '&Copy'
        GroupIndex = 1
        HelpContext = 8481
        Hint = 'Copy sellected text to clipboard'
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Cut1: TMenuItem
        Tag = 1
        Caption = 'Cu&t'
        GroupIndex = 1
        HelpContext = 8491
        Hint = 'Cut sellected text to clipboard'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Paste1: TMenuItem
        Tag = 1
        Caption = '&Paste'
        GroupIndex = 1
        HelpContext = 8501
        Hint = 'Paste text from clipboard into message'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object Delete1: TMenuItem
        Tag = 1
        Caption = '&Delete'
        GroupIndex = 1
        HelpContext = 8511
        Hint = 'Delet sellected text from message'
        ShortCut = 0
        OnClick = Delete1Click
      end
      object UpperCase1: TMenuItem
        Caption = 'Upper Case'
        GroupIndex = 1
        HelpContext = 8521
        Hint = 'Convert selected text to upper case'
        ShortCut = 0
        OnClick = UpperCase1Click
      end
      object LowerCase1: TMenuItem
        Caption = 'Lower Case'
        GroupIndex = 1
        HelpContext = 8531
        Hint = 'Convert selected text to lower case'
        ShortCut = 0
        OnClick = LowerCase1Click
      end
      object N2: TMenuItem
        Caption = '-'
        GroupIndex = 1
        ShortCut = 0
      end
      object SellectAll1: TMenuItem
        Tag = 1
        Caption = '&Sellect All'
        GroupIndex = 1
        HelpContext = 8541
        Hint = 'Sellect all text in message'
        ShortCut = 16449
        OnClick = SellectAll1Click
      end
      object N1: TMenuItem
        Caption = '-'
        GroupIndex = 1
        ShortCut = 0
      end
      object Wordwrap1: TMenuItem
        Tag = 1
        Caption = '&Wordwrap'
        Checked = True
        GroupIndex = 1
        HelpContext = 8551
        Hint = 'Turn wordwrap on and off'
        ShortCut = 16471
        OnClick = Wordwrap1Click
      end
    end
    object Message1: TMenuItem
      Tag = 1
      Caption = '&Message'
      GroupIndex = 4
      Hint = 'Message related commands'
      ShortCut = 0
      object Post1: TMenuItem
        Tag = 1
        Caption = '&Post'
        GroupIndex = 4
        HelpContext = 8151
        Hint = 'Add message(s) to reply packet and close editor'
        ShortCut = 16464
        OnClick = Post1Click
      end
      object Cancel1: TMenuItem
        Tag = 1
        Caption = '&Cancel '
        GroupIndex = 4
        HelpContext = 8631
        Hint = 'Close editor without posting message(s)'
        ShortCut = 0
        OnClick = Cancel1Click
      end
      object Sign1: TMenuItem
        Tag = 1
        Caption = '&Sign'
        GroupIndex = 4
        HelpContext = 8641
        Hint = 'Add signature to bottom of message'
        ShortCut = 16467
        OnClick = Sign1Click
      end
      object N7: TMenuItem
        Caption = '-'
        GroupIndex = 4
        ShortCut = 0
      end
      object Importtextfile1: TMenuItem
        Tag = 1
        Caption = '&Import text file...'
        GroupIndex = 4
        HelpContext = 8651
        Hint = 'Import a text file into message'
        ShortCut = 16457
        OnClick = ImporttextfileClick
      end
      object Insertfile1: TMenuItem
        Caption = 'Insert &file'
        GroupIndex = 4
        ShortCut = 0
        object InsertUUencode1: TMenuItem
          Tag = 1
          Caption = '&UUencode 664...'
          GroupIndex = 4
          HelpContext = 8661
          Hint = 'UUencode a file and insert into message'
          ShortCut = 16469
          OnClick = UUencode1Click
        end
        object InsertMimebase64: TMenuItem
          Caption = 'Mime base64...'
          GroupIndex = 4
          ShortCut = 16461
          OnClick = InsertMimebase64Click
        end
      end
    end
  end
  object OpenImportDialog: TOpenDialog
    HelpContext = 8651
    FileEditStyle = fsEdit
    Filter = 
      'Text files|*.txt|Pascal sourse|*.pas;*dpf|C++ source|*.c;*.h|All' +
      ' files|*.*'
    Options = [ofPathMustExist, ofFileMustExist]
    Title = 'Import File to Msg'
    Left = 112
    Top = 192
  end
  object EditPopUp: TPopupMenu
    Left = 32
    Top = 192
    object Undo1: TMenuItem
      Caption = 'Undo'
      HelpContext = 8471
      Hint = 'Undo previous editting'
      ShortCut = 0
      OnClick = Undo1Click
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Cut2: TMenuItem
      Caption = 'Cut'
      HelpContext = 8491
      Hint = 'Cut sellected text to clipboard'
      ShortCut = 0
      OnClick = Cut1Click
    end
    object Copy2: TMenuItem
      Caption = 'Copy'
      HelpContext = 8481
      Hint = 'Copy highlighted text to clipboard'
      ShortCut = 0
      OnClick = Copy1Click
    end
    object Paste2: TMenuItem
      Caption = 'Paste'
      HelpContext = 8501
      Hint = 'Paste text from clipboard into message'
      ShortCut = 0
      OnClick = Paste1Click
    end
    object Delete2: TMenuItem
      Caption = 'Delete'
      HelpContext = 8511
      Hint = 'Delet sellected text from message'
      ShortCut = 0
      OnClick = Delete1Click
    end
    object SelectAll1: TMenuItem
      Caption = 'Select All'
      HelpContext = 8541
      Hint = 'Sellect all text in message'
      ShortCut = 0
      OnClick = SelectAll1Click
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Post2: TMenuItem
      Caption = 'Post'
      HelpContext = 8151
      Hint = 'Add message(s) to reply packet and close editor'
      ShortCut = 0
      OnClick = Post1Click
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Cancel2: TMenuItem
      Caption = 'Cancel'
      HelpContext = 8631
      Hint = 'Close editor without posting message(s)'
      ShortCut = 0
      OnClick = Cancel1Click
    end
  end
  object ResolutionFix1: TResolutionFix
    DesignRes = 96
    Left = 152
    Top = 192
  end
  object Uucode1: TUucode
    CodeType = True
    Left = 184
    Top = 192
  end
  object FindDialog1: TFindDialog
    HelpContext = 8571
    OnFind = FindDialog1Find
    Left = 224
    Top = 192
  end
  object ReplaceDialog1: TReplaceDialog
    HelpContext = 8591
    OnFind = ReplaceDialog1Find
    OnReplace = ReplaceDialog1Replace
    Left = 264
    Top = 192
  end
  object PrintDialog1: TPrintDialog
    HelpContext = 8161
    Left = 312
    Top = 192
  end
  object SaveMsgDlg: TSaveDialog
    HelpContext = 8361
    FileEditStyle = fsEdit
    Filter = 'Text|*.txt|All|*.*'
    Options = [ofOverwritePrompt]
    Title = 'Save Msg to File'
    Left = 352
    Top = 192
  end
end