object MsgForm: TMsgForm
  Left = 141
  Top = 229
  Width = 638
  Height = 155
  HelpContext = 8101
  Caption = 'Area'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poDefault
  Scaled = False
  Visible = True
  OnActivate = FormActivate
  OnClick = FormClick
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 16
  object MsgListBox1: TListBox
    Left = 0
    Top = 22
    Width = 630
    Height = 102
    HelpContext = 8101
    Align = alClient
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    ItemHeight = 15
    ParentFont = False
    PopupMenu = MsgListPopUp
    Style = lbOwnerDrawFixed
    TabOrder = 0
    OnClick = MsgListBox1Click
    OnDblClick = MsgListBox1DblClick
    OnDrawItem = MsgListBox1DrawItem
    OnKeyDown = MsgListBox1KeyDown
    OnMeasureItem = MsgListBox1MeasureItem
  end
  object MsgListHd: THeader
    Left = 0
    Top = 0
    Width = 630
    Height = 22
    Align = alTop
    Sections.Sections = (
      #0'63'#0' Number'
      #0'181'#0' From                                  '
      #0'176'#0' To                                     '
      #0'60'#0' Subject')
    TabOrder = 1
    OnSized = MsgListHdSized
  end
  object MsgListPopUp: TPopupMenu
    Left = 64
    Top = 56
    object Next1: TMenuItem
      Caption = '         Next   >'
      HelpContext = 8191
      Hint = 'Move to next conference'
      ShortCut = 0
      OnClick = Next1Click
    end
    object Prev1: TMenuItem
      Caption = '    <   Prev'
      HelpContext = 8181
      Hint = 'Move to previous conference'
      ShortCut = 0
      OnClick = Prev1Click
    end
    object Close1: TMenuItem
      Caption = 'Close Msg List'
      Hint = 'Close message list viewer'
      ShortCut = 0
      OnClick = Close1Click
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object OpenPacket1: TMenuItem
      Caption = 'Open Packet'
      HelpContext = 8021
      Hint = 'Open mail packet and load messages into reader'
      ShortCut = 0
      OnClick = OpenPacket1Click
    end
    object ClosePacket1: TMenuItem
      Caption = 'Close Packet'
      HelpContext = 8031
      Hint = 'Close the current open mail packet'
      ShortCut = 0
      OnClick = ClosePacket1Click
    end
    object ExitMailreader1: TMenuItem
      Caption = 'Exit Mail Reader'
      HelpContext = 8321
      Hint = 'Exit the application'
      ShortCut = 0
      OnClick = ExitMailreader1Click
    end
  end
end