Chip 2002 March/Chip_2002-03_cd1.bin/tema/thebat/download/update/thebat.exe/0/RCDATA/TMAILERFORM/TMAILERFORM.txt

Text File | 2001-09-09 | 90KB | 3,529 lines

object MailerForm: TMailerForm
  Left = 106
  Top = 78
  HelpContext = 14028
  ActiveControl = fFolders
  AutoScroll = False
  Caption = 'The Bat!'
  ClientHeight = 426
  ClientWidth = 680
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = mMainMenu
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object MsgCtl: TMessageController
    Left = 532
    Top = 104
    Width = 0
    Height = 0
    MsgView = MLV
    InfoOptions = [mhoFrom, mhoReply, mhoTO, mhoCC, mhoBCC, mhoSubj]
    InfoGrid = gAddr
    ImagePanel = ImagePanel
    NoteBook = BodyNotebook
    AttachList = fList
    AttachImages = fImages
    HeaderPanel = pnHeader
    LbSize = hdrSize
    eMsg = eMsg
    Tabs = ViewTabs
    ViewPanel = pnView
    MsgPanel = MPanel
    BottomPanel = BottomPanel
    AttachVertical = True
    AttachSplit = Split3
    AttachPanel = FPanel
  end
  object pnWindow: TPanel
    Left = 34
    Top = 9
    Width = 637
    Height = 408
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Split2: TSplitter
      Left = 0
      Top = 153
      Width = 637
      Height = 3
      Cursor = crHSplit
      Align = alTop
      Beveled = False
    end
    object MPanel: TPanel
      Left = 0
      Top = 0
      Width = 637
      Height = 153
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Split1: TSplitter
        Left = 230
        Top = 0
        Width = 3
        Height = 153
        Cursor = crHSplit
        Beveled = False
      end
      object TreePanel: TPanel
        Left = 0
        Top = 0
        Width = 230
        Height = 153
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object hFolders: THeaderControl
          Left = 0
          Top = 0
          Width = 230
          Height = 20
          Sections = <
            item
              MinWidth = 100
              Text = 'Folder'
              Width = 100
            end
            item
              Text = 'New'
              Width = 50
            end
            item
              Text = 'Total'
              Width = 5000
            end>
          OnSectionClick = hFoldersSectionClick
          OnSectionResize = hFoldersSectionResize
        end
        object fFolders: TOutline
          Left = 0
          Top = 20
          Width = 230
          Height = 133
          HelpContext = 11012
          OutlineStyle = osText
          OnExpand = fFoldersExpand
          OnCollapse = fFoldersCollapse
          Options = [ooDrawTreeRoot]
          Style = otOwnerDraw
          ItemHeight = 16
          OnDrawItem = lFoldersDrawItem
          Align = alClient
          TabOrder = 1
          OnClick = fFoldersClick
          OnDragDrop = lFoldersDragDrop
          OnDragOver = lFoldersDragOver
          OnEndDrag = lFoldersEndDrag
          OnStartDrag = fFoldersStartDrag
          OnEnter = fFoldersEnter
          OnExit = fFoldersExit
          OnMouseDown = FMouseDown
          OnMouseMove = fFoldersMouseMove
          OnDblClick = fFoldersDblClick
          OnKeyDown = lFoldersKeyDown
          OnKeyPress = fFoldersKeyPress
          OnKeyUp = lFoldersKeyUp
          ItemSeparator = '\'
          ParentShowHint = False
          ShowHint = True
          PopupMenu = FolderMenu
          ScrollBars = ssVertical
          Data = {1F}
        end
      end
      object pnMsg_List: TPanel
        Left = 233
        Top = 0
        Width = 404
        Height = 153
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object MsgDock: TDock97
          Left = 0
          Top = 0
          Width = 404
          Height = 34
          LimitToOneRow = True
          OnInsertRemoveBar = pnLeftDockInsertRemoveBar
          object pnToolBar: TToolbar97
            Left = 0
            Top = 0
            HelpContext = 11010
            Caption = 'Main Toolbar'
            DockedTo = MsgDock
            DockPos = 0
            TabOrder = 0
            Visible = False
            OnClose = pnToolBarClose
            object bFetch: TToolbarButton97
              Left = 0
              Top = 0
              Width = 41
              Height = 30
              Hint = 'Get new mail'
              DropdownCombo = True
              DropdownMenu = pSendRcv
              ParentShowHint = False
              ShowHint = True
              OnClick = mmFetchClick
            end
            object bSend: TToolbarButton97
              Left = 41
              Top = 0
              Width = 41
              Height = 30
              Hint = 'Send queued mail'
              DropdownCombo = True
              DropdownMenu = pSendRcv
              ParentShowHint = False
              ShowHint = True
              OnClick = bSendClick
            end
            object bNewMail: TToolbarButton97
              Left = 88
              Top = 0
              Width = 41
              Height = 30
              Hint = 'Create a new message'
              DropdownCombo = True
              DropdownMenu = AttachPopup
              ParentShowHint = False
              ShowHint = True
              OnClick = bNewMailClick
              OnMouseDown = bNewMailMouseDown
            end
            object bReply: TToolbarButton97
              Tag = 9
              Left = 129
              Top = 0
              Width = 31
              Height = 30
              Hint = 'Reply to the message(s) selected'
              ParentShowHint = False
              ShowHint = True
              OnClick = bReplyClick
            end
            object bReplyAll: TToolbarButton97
              Tag = 2
              Left = 160
              Top = 0
              Width = 30
              Height = 30
              Hint = 'Reply to all'
              ParentShowHint = False
              ShowHint = True
              OnClick = bReplyClick
            end
            object bForward: TToolbarButton97
              Tag = 11
              Left = 190
              Top = 0
              Width = 30
              Height = 30
              Hint = 'Forward the message(s) selected'
              ParentShowHint = False
              ShowHint = True
              OnClick = bReplyClick
            end
            object bAddrBook: TToolbarButton97
              Left = 254
              Top = 0
              Width = 30
              Height = 30
              Hint = 'Address Book'
              ParentShowHint = False
              ShowHint = True
              OnClick = mAddressBookClick
            end
            object bSearch: TToolbarButton97
              Left = 284
              Top = 0
              Width = 29
              Height = 30
              Hint = 'Message search'
              ParentShowHint = False
              ShowHint = True
              OnClick = mSearchClick
            end
            object bPrint: TToolbarButton97
              Tag = 1
              Left = 313
              Top = 0
              Width = 30
              Height = 30
              Hint = 'Print the message(s) selected'
              ParentShowHint = False
              ShowHint = True
              OnClick = mmPrintClick
            end
            object bSaveAs: TToolbarButton97
              Left = 343
              Top = 0
              Width = 30
              Height = 30
              Hint = 'Save the selected message(s) as...'
              ParentShowHint = False
              ShowHint = True
              OnClick = mSaveMessageClick
            end
            object bDelete: TToolbarButton97
              Left = 379
              Top = 0
              Width = 30
              Height = 30
              Hint = 'Delete the message(s) selected'
              ParentShowHint = False
              ShowHint = True
              OnClick = bDeleteClick
            end
            object ToolbarSep973: TToolbarSep97
              Left = 82
              Top = 0
            end
            object ToolbarSep974: TToolbarSep97
              Left = 248
              Top = 0
            end
            object NolSep: TToolbarSep97
              Left = 409
              Top = 0
            end
            object bRedirect: TToolbarButton97
              Tag = 4
              Left = 220
              Top = 0
              Width = 28
              Height = 30
              Hint = 'Redirect the message(s) selected'
              ParentShowHint = False
              ShowHint = True
              OnClick = bReplyClick
            end
            object ToolbarSep976: TToolbarSep97
              Left = 373
              Top = 0
            end
            object bChat: TToolbarButton97
              Left = 415
              Top = 0
              Width = 30
              Height = 30
              Hint = 'Now Online Chat'
              ParentShowHint = False
              ShowHint = True
              OnClick = bChatClick
            end
            object bSupport: TToolbarButton97
              Left = 445
              Top = 0
              Width = 30
              Height = 30
              Hint = 'Now Online Web Support'
              ParentShowHint = False
              ShowHint = True
              OnClick = bSupportClick
            end
          end
        end
        object pnMsgList: TPanel
          Left = 0
          Top = 34
          Width = 404
          Height = 119
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object hMLV: THeaderControl
            Left = 0
            Top = 0
            Width = 404
            Height = 17
            Hint = 'nograb'
            Sections = <>
            OnMouseDown = hMLVMouseDown
          end
          object MLV: TMessageListView
            Left = 0
            Top = 17
            Width = 404
            Height = 102
            HelpContext = 11013
            Align = alClient
            ColCount = 10
            DefaultRowHeight = 16
            DefaultDrawing = False
            FixedCols = 0
            RowCount = 1
            FixedRows = 0
            Options = [goThumbTracking]
            PopupMenu = MessagePopup
            TabOrder = 1
            OnDblClick = MLVDblClick
            OnEnter = MLVEnter
            OnKeyDown = MLVKeyDown
            OnKeyPress = lMsgsKeyPress
            Sorting = 0
            Threading = mlvtNone
            Header = hMLV
            OnColumnsChange = MLVColumnsChange
          end
        end
      end
    end
    object BottomPanel: TPanel
      Left = 0
      Top = 156
      Width = 637
      Height = 230
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object pnMsg: TPanel
        Left = 0
        Top = 0
        Width = 637
        Height = 230
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Split3: TSplitter
          Left = 81
          Top = 57
          Width = 3
          Height = 152
          Cursor = crHSplit
          Beveled = False
        end
        object FPanel: TPanel
          Left = 0
          Top = 57
          Width = 81
          Height = 152
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
          object fList: TListView
            Left = 0
            Top = 0
            Width = 81
            Height = 152
            HelpContext = 10041
            Align = alClient
            OnDblClick = fListDblClick
            Columns = <>
            ReadOnly = True
            IconOptions.AutoArrange = True
            OnEnter = fFoldersEnter
            PopupMenu = AttachPopup
            ShowColumnHeaders = False
            TabOrder = 0
            LargeImages = fImages
            SmallImages = fImages
            StateImages = fImages
          end
        end
        object pnView: TPanel
          Left = 84
          Top = 57
          Width = 553
          Height = 152
          HelpContext = 11014
          Align = alClient
          BevelOuter = bvLowered
          BorderWidth = 1
          TabOrder = 1
          object BodyNotebook: TNotebook
            Left = 2
            Top = 2
            Width = 549
            Height = 148
            Align = alClient
            TabOrder = 0
            object TPage
              Left = 0
              Top = 0
              Caption = 'Default'
              object eMsg: TTextEditor
                Left = 0
                Top = 0
                Width = 549
                Height = 148
                HelpContext = 10027
                BgColor = clWhite
                TextColor = clBlack
                SelColor = clWhite
                SelBgColor = clBlack
                QuoteColor = clBlue
                RefColor = clBlue
                Kludge1Color = clOlive
                Kludge2Color = clOlive
                Kludge3Color = clOlive
                ReadOnly = False
                FontCharset = 1
                TabOrder = 0
                Font.Color = clBlack
                Font.Height = -15
                Font.Name = 'Courier New'
                Font.Pitch = fpFixed
                Font.Style = []
                Align = alClient
                OnMouseMove = eMsgMouseMove
                OnEnter = fFoldersEnter
                PopupMenu = ViewPopup
                OnDblClick = eMsgDblClick
              end
            end
            object TPage
              Left = 0
              Top = 0
              Caption = 'Image'
              object ImagePanel: TPanel
                Left = 0
                Top = 0
                Width = 549
                Height = 148
                Align = alClient
                BevelOuter = bvNone
                TabOrder = 0
                OnResize = ImagePanelResize
              end
            end
          end
        end
        object ViewTabs: TTabSet
          Left = 0
          Top = 209
          Width = 637
          Height = 21
          Align = alBottom
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Visible = False
          OnChange = ViewTabsChange
        end
        object pnHeader: TPanel
          Left = 0
          Top = 0
          Width = 637
          Height = 57
          Align = alTop
          BorderWidth = 1
          BorderStyle = bsSingle
          TabOrder = 3
          Visible = False
          OnResize = pnHeaderResize
          object hdrSize: TMemo
            Left = 570
            Top = 2
            Width = 61
            Height = 49
            TabStop = False
            Align = alRight
            Alignment = taRightJustify
            BorderStyle = bsNone
            Font.Color = clBlack
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentColor = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            WordWrap = False
          end
          object gAddr: TAddressGrid
            Left = 2
            Top = 2
            Width = 568
            Height = 49
            TabStop = False
            Align = alClient
            BorderStyle = bsNone
            Color = clBtnFace
            ColCount = 2
            DefaultRowHeight = 14
            RowCount = 1
            FixedRows = 0
            Options = [goEditing, goAlwaysShowEditor]
            ScrollBars = ssNone
            TabOrder = 1
            SimpleLook = True
            ColWidths = (
              16
              552)
          end
        end
      end
    end
    object pnStatus: TPanel
      Left = 0
      Top = 386
      Width = 637
      Height = 22
      Align = alBottom
      BevelOuter = bvNone
      BorderWidth = 2
      TabOrder = 2
      OnResize = pnStatusResize
      object eLog: TComboBox
        Left = 0
        Top = 2
        Width = 657
        Height = 21
        HelpContext = 11015
        TabStop = False
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
      end
    end
  end
  object pnTools: TDock97
    Left = 0
    Top = 0
    Width = 680
    Height = 9
    OnInsertRemoveBar = pnLeftDockInsertRemoveBar
  end
  object pnLeftDock: TDock97
    Left = 0
    Top = 9
    Width = 34
    Height = 408
    Position = dpLeft
    OnInsertRemoveBar = pnLeftDockInsertRemoveBar
    object pnConfig: TToolbar97
      Left = 0
      Top = 0
      HelpContext = 11011
      Caption = 'Account specials'
      DockedTo = pnLeftDock
      DockPos = 0
      TabOrder = 0
      Visible = False
      OnClose = pnConfigClose
      OnVisibleChanged = pnConfigVisibleChanged
      object bDispatch: TToolbarButton97
        Left = 0
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Dispatch mail on the server'
        ParentShowHint = False
        ShowHint = True
        OnClick = mDispatchNewClick
      end
      object bViewLog: TToolbarButton97
        Left = 0
        Top = 30
        Width = 30
        Height = 30
        Hint = 'View Account Log'
        ParentShowHint = False
        ShowHint = True
        OnClick = mViewLogClick
      end
      object bLock: TToolbarButton97
        Left = 0
        Top = 60
        Width = 30
        Height = 30
        Hint = 'Lock Account with a password'
        ParentShowHint = False
        ShowHint = True
        OnClick = mmLockClick
      end
      object ToolbarSep971: TToolbarSep97
        Left = 0
        Top = 90
      end
      object cNewUser: TToolbarButton97
        Left = 0
        Top = 96
        Width = 30
        Height = 30
        Hint = 'Create a new account'
        ParentShowHint = False
        ShowHint = True
        OnClick = mNewAccountClick
      end
      object bCfgAccount: TToolbarButton97
        Left = 0
        Top = 126
        Width = 30
        Height = 30
        Hint = 'Edit account properties'
        ParentShowHint = False
        ShowHint = True
        OnClick = mEditAccountClick
      end
      object bCfgFilters: TToolbarButton97
        Left = 0
        Top = 156
        Width = 30
        Height = 30
        Hint = 'Configure message filters'
        ParentShowHint = False
        ShowHint = True
        OnClick = mMsgSortClick
      end
      object ToolbarSep972: TToolbarSep97
        Left = 0
        Top = 186
      end
      object bCfgNetwork: TToolbarButton97
        Left = 0
        Top = 192
        Width = 30
        Height = 30
        Hint = 'Network and Administration'
        ParentShowHint = False
        ShowHint = True
        OnClick = mNetCfgClick
      end
    end
  end
  object pnRightDock: TDock97
    Left = 671
    Top = 9
    Width = 9
    Height = 408
    Position = dpRight
    OnInsertRemoveBar = pnLeftDockInsertRemoveBar
  end
  object pnBottomDock: TDock97
    Left = 0
    Top = 417
    Width = 680
    Height = 9
    Position = dpBottom
    OnInsertRemoveBar = pnLeftDockInsertRemoveBar
  end
  object tbSearch: TToolbar97
    Left = 312
    Top = 152
    Caption = 'Quick Search'
    DockableTo = [dpTop, dpBottom]
    DockPos = 372
    PopupMenu = pmSearch
    TabOrder = 5
    Visible = False
    OnClose = tbSearchClose
    OnDockChanged = tbSearchDockChanged
    OnVisibleChanged = tbSearchVisibleChanged
    object eSearch: TEdit97
      Left = 4
      Top = 2
      Width = 121
      Height = 19
      PopupMenu = pmSearch
      TabOrder = 0
      OnChange = eSearchChange
      OnEnter = eSearchEnter
      OnKeyDown = eSearchKeyDown
    end
  end
  object FolderMenu: TPopupMenu
    OnPopup = FolderMenuPopup
    Left = 24
    Top = 120
    object mNewFolder: TMenuItem
      Caption = '&New Folder...'
      ShortCut = 45
      OnClick = mNewFolderClick
    end
    object mDelFolder: TMenuItem
      Caption = '&Delete Folder'
      ShortCut = 46
      OnClick = mDelFolderClick
    end
    object N10: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mFetch: TMenuItem
      Caption = '&Get New Mail...'
      Default = True
      ShortCut = 113
      OnClick = mmFetchClick
    end
    object mSendOut: TMenuItem
      Caption = '&Send Queued Mail'
      ShortCut = 8305
      OnClick = bSendClick
    end
    object mfpCreate: TMenuItem
      Caption = '&Create a New Message...'
      ShortCut = 116
      OnClick = bNewMailClick
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mEmptyFolder: TMenuItem
      Caption = '&Empty Folder'
      ShortCut = 16430
      OnClick = mEmptyFolderClick
    end
    object mfMarkFolderRead: TMenuItem
      Caption = '&Mark all messages Read'
      ShortCut = 16461
      OnClick = mMarkFolderReadClick
    end
    object mfRefilter: TMenuItem
      Caption = '&Re-filter Messages'
      ShortCut = 0
      OnClick = mRefilterClick
    end
    object mpfKillDupes: TMenuItem
      Caption = '&Kill Dupes'
      ShortCut = 0
      OnClick = mfKillDupesClick
    end
    object mpfBrowseFolder: TMenuItem
      Caption = '&Browse Folder'
      ShortCut = 0
      OnClick = mfBrowseClick
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mEditFolder: TMenuItem
      Caption = '&Properties...'
      ShortCut = 32781
      OnClick = mEditFolderClick
    end
    object Popup4: TMenuItem
      Tag = 3
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
      OnClick = Popup1Click
    end
    object mpfRefresh: TMenuItem
      Caption = 'Refresh'
      ShortCut = 27
      Visible = False
      OnClick = mfRefreshClick
    end
    object mmFindLostFolders: TMenuItem
      Caption = 'Find Lost Folders'
      ShortCut = 57420
      Visible = False
      OnClick = mmFindLostFoldersClick
    end
    object mfMovedown: TMenuItem
      Caption = 'Move down'
      ShortCut = 32
      Visible = False
      OnClick = mvMoveDownClick
    end
    object MovetoPreviouslyviewed1: TMenuItem
      Tag = -1
      Caption = 'Move to Previously viewed'
      ShortCut = 32805
      Visible = False
      OnClick = mlMovePrevClick
    end
    object MovetoNextviewed1: TMenuItem
      Tag = 1
      Caption = 'Move to Next viewed'
      ShortCut = 32807
      Visible = False
      OnClick = mlMovePrevClick
    end
    object MovetoNextunread2: TMenuItem
      Tag = 1
      Caption = 'Move to &Next unread'
      ShortCut = 49191
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object MovetoPreviousunread2: TMenuItem
      Tag = -1
      Caption = 'Move to Pre&vious unread'
      ShortCut = 49189
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object mfMovetNextU: TMenuItem
      Tag = 1
      Caption = 'Move to next unread'
      ShortCut = 16605
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object mfMovePrevUR: TMenuItem
      Tag = -1
      Caption = 'Move to previous unread'
      ShortCut = 16603
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object MovetoNextunread4: TMenuItem
      Tag = 1
      Caption = 'Move to &Next unread'
      ShortCut = 16423
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object MovetoPreviousunread4: TMenuItem
      Tag = -1
      Caption = 'Move to Pre&vious unread'
      ShortCut = 16421
      Visible = False
      OnClick = mmNextUnreadClick
    end
  end
  object MessagePopup: TPopupMenu
    OnPopup = MessagePopupPopup
    Left = 56
    Top = 120
    object mmNextUnread: TMenuItem
      Tag = 1
      Caption = 'Move to &Next unread'
      ShortCut = 49191
      OnClick = mmNextUnreadClick
    end
    object mmPrevUnread: TMenuItem
      Tag = -1
      Caption = 'Move to Pre&vious unread'
      ShortCut = 49189
      OnClick = mmNextUnreadClick
    end
    object mmNextUnreadInv: TMenuItem
      Tag = 1
      Caption = 'Move to &Next unread'
      ShortCut = 16423
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object mmPrevUnreadInv: TMenuItem
      Tag = -1
      Caption = 'Move to Pre&vious unread'
      ShortCut = 16421
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object MovetoNextunread1: TMenuItem
      Tag = 1
      Caption = 'Move to &Next unread'
      ShortCut = 16605
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object MovetoPreviousunread1: TMenuItem
      Tag = -1
      Caption = 'Move to Pre&vious unread'
      ShortCut = 16603
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object mlMovePrev: TMenuItem
      Tag = -1
      Caption = 'Move to Previously viewed'
      ShortCut = 32805
      OnClick = mlMovePrevClick
    end
    object mlMoveNext: TMenuItem
      Tag = 1
      Caption = 'Move to Next viewed'
      ShortCut = 32807
      OnClick = mlMovePrevClick
    end
    object N41: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mmCNew: TMenuItem
      Caption = 'Create a ne&w message...'
      Default = True
      ShortCut = 16462
      OnClick = bNewMailClick
    end
    object mmSubmitForm: TMenuItem
      Caption = 'Su&bmit a Form'
      ShortCut = 0
    end
    object mOpenMessage: TMenuItem
      Caption = '&Open '
      ShortCut = 13
      OnClick = mOpenMessageClick
    end
    object mmReply3: TMenuItem
      Caption = '&Reply...'
      ShortCut = 16466
      Visible = False
      OnClick = bReplyClick
    end
    object mReplyMessage: TMenuItem
      Caption = '&Reply...'
      ShortCut = 16397
      OnClick = bReplyClick
    end
    object mFwdMessage: TMenuItem
      Tag = 1
      Caption = '&Forward...'
      ShortCut = 16454
      OnClick = bReplyClick
    end
    object Forward1: TMenuItem
      Tag = 1
      Caption = '&Forward...'
      ShortCut = 8205
      Visible = False
      OnClick = bReplyClick
    end
    object mmRedirect: TMenuItem
      Tag = 4
      Caption = 'R&edirect'
      ShortCut = 16453
      OnClick = bReplyClick
    end
    object mmThread: TMenuItem
      Caption = '&Thread'
      ShortCut = 0
      object mmtCopy: TMenuItem
        Caption = '&Copy'
        ShortCut = 16468
        OnClick = mmtCopyClick
      end
      object mmtMove: TMenuItem
        Tag = 1
        Caption = '&Move'
        ShortCut = 24662
        OnClick = mmtCopyClick
      end
      object mmtDelete: TMenuItem
        Tag = 2
        Caption = '&Delete'
        ShortCut = 24622
        OnClick = mmtCopyClick
      end
      object N44: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmtMarkRead: TMenuItem
        Tag = 3
        Caption = 'Mark as &Read'
        ShortCut = 24653
        OnClick = mmtCopyClick
      end
      object mmtUnread: TMenuItem
        Tag = 4
        Caption = 'Mark as &Unread'
        ShortCut = 24661
        OnClick = mmtCopyClick
      end
      object mmtPark: TMenuItem
        Tag = 5
        Caption = '&Park'
        ShortCut = 0
        OnClick = mmtCopyClick
      end
      object mmtUnpark: TMenuItem
        Tag = 6
        Caption = 'Unp&ark'
        ShortCut = 0
        OnClick = mmtCopyClick
      end
    end
    object N17: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mvCopy: TMenuItem
      Tag = 1
      Caption = '&Copy to folder...'
      ShortCut = 16451
      OnClick = mmMoveMsgClick
    end
    object mvMove: TMenuItem
      Caption = '&Move to folder...'
      ShortCut = 16470
      OnClick = mmMoveMsgClick
    end
    object mSaveMessage: TMenuItem
      Caption = '&Save as...'
      ShortCut = 16467
      OnClick = mSaveMessageClick
    end
    object mDelMessage: TMenuItem
      Caption = '&Delete'
      ShortCut = 46
      OnClick = mDelMessageClick
    end
    object mPrint: TMenuItem
      Caption = '&Print'
      ShortCut = 16464
      OnClick = mmPrintClick
    end
    object mpSpecials: TMenuItem
      Caption = 'Specials'
      ShortCut = 0
      object mmAddAddress: TMenuItem
        Caption = '&Add sender to Address Book'
        ShortCut = 16471
        OnClick = mmAddAddressClick
      end
      object mmAddRcpt: TMenuItem
        Tag = 1
        Caption = 'Add &recipient to Address Book'
        ShortCut = 24663
        OnClick = mmAddAddressClick
      end
      object mmDeleteAddress: TMenuItem
        Caption = '&Delete sender from Address Book'
        ShortCut = 16450
        OnClick = mmDeleteAddressClick
      end
      object mmDelRcpt: TMenuItem
        Tag = 1
        Caption = 'D&elete recipient from Address Book'
        ShortCut = 24642
        OnClick = mmDeleteAddressClick
      end
      object mmMakeFilter: TMenuItem
        Caption = '&Create filter...'
        ShortCut = 24646
        OnClick = mmMakeFilterClick
      end
      object mmFindReply: TMenuItem
        Caption = '&Open reply'
        ShortCut = 16392
        OnClick = mmFindReplyClick
      end
      object mPGPDecrypt: TMenuItem
        Caption = '&OpenPGP Decrypt'
        ShortCut = 24644
        Visible = False
        OnClick = mPGPDecryptClick
      end
      object N29: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmPark: TMenuItem
        Caption = '&Park'
        ShortCut = 16458
        OnClick = mmParkClick
      end
      object mmUnpark: TMenuItem
        Tag = 1
        Caption = '&Unpark'
        ShortCut = 16452
        OnClick = mmParkClick
      end
      object N49: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmReplySelected: TMenuItem
        Tag = 7
        Caption = 'Reply &Quoting selected text'
        ShortCut = 115
        OnClick = bReplyClick
      end
      object mmReplyNoQuotes: TMenuItem
        Tag = 5
        Caption = 'Reply &without quotation'
        ShortCut = 8307
        OnClick = bReplyClick
      end
      object mmReplySender: TMenuItem
        Tag = 6
        Caption = 'Reply to the &Sender'
        ShortCut = 16499
        OnClick = bReplyClick
      end
      object AlternativeForward1: TMenuItem
        Tag = 10
        Caption = 'Alternative &Forward'
        ShortCut = 41076
        OnClick = bReplyClick
      end
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mmMarkunread: TMenuItem
      Caption = 'Mark as &Unread'
      ShortCut = 16469
      OnClick = mmMarkunreadClick
    end
    object mmMarkRead: TMenuItem
      Tag = 1
      Caption = 'Mark &as Read'
      ShortCut = 16461
      OnClick = mmMarkunreadClick
    end
    object mmMoreFlags: TMenuItem
      Caption = 'F&lags'
      ShortCut = 0
      object mpfFlagged: TMenuItem
        Tag = 2
        Caption = '&Flagged'
        ShortCut = 16455
        OnClick = mf_FlaggedClick
      end
      object mpfReplied: TMenuItem
        Tag = 1
        Caption = '&Replied'
        ShortCut = 0
        OnClick = mf_FlaggedClick
      end
      object mpfForwarded: TMenuItem
        Tag = 3
        Caption = 'F&orwarded/Redirected'
        ShortCut = 0
        OnClick = mf_FlaggedClick
      end
      object N51: TMenuItem
        Caption = '-'
        ShortCut = 0
        OnClick = mf_FlaggedClick
      end
      object mpfNormalPriority: TMenuItem
        Tag = 5
        Caption = '&Normal priority'
        GroupIndex = 10
        RadioItem = True
        ShortCut = 0
        OnClick = mf_FlaggedClick
      end
      object mpfHighPriority: TMenuItem
        Tag = 7
        Caption = '&High priority'
        GroupIndex = 10
        RadioItem = True
        ShortCut = 0
        OnClick = mf_FlaggedClick
      end
      object mpfLowPriority: TMenuItem
        Tag = 6
        Caption = '&Low priority'
        GroupIndex = 10
        RadioItem = True
        ShortCut = 0
        OnClick = mf_FlaggedClick
      end
    end
    object mmColors: TMenuItem
      Caption = 'Colour &Group'
      ShortCut = 0
      object TMenuItem
        ShortCut = 0
      end
    end
    object N54: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mfRefresh2: TMenuItem
      Caption = 'Refres&h'
      ShortCut = 27
      OnClick = mfRefreshClick
    end
    object mlSelectAll: TMenuItem
      Caption = 'Selec&t All'
      ShortCut = 16449
      OnClick = mlSelectAllClick
    end
    object mlMovedown: TMenuItem
      Caption = 'Move down'
      ShortCut = 32
      Visible = False
      OnClick = mvMoveDownClick
    end
    object Popup3: TMenuItem
      Tag = 2
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
      OnClick = Popup1Click
    end
  end
  object fImages: TImageList
    Height = 32
    Width = 32
    Left = 40
    Top = 64
  end
  object AttachPopup: TPopupMenu
    OnPopup = AttachPopupPopup
    Left = 120
    Top = 120
    object maView: TMenuItem
      Tag = 1
      Caption = '&Open...'
      Default = True
      ShortCut = 16397
      OnClick = maSaveClick
    end
    object maSave: TMenuItem
      Caption = '&Save...'
      ShortCut = 13
      OnClick = maSaveClick
    end
    object maDelete: TMenuItem
      Tag = 3
      Caption = '&Delete'
      ShortCut = 46
      OnClick = maSaveClick
    end
    object maPrint: TMenuItem
      Tag = 2
      Caption = '&Print...'
      ShortCut = 0
      OnClick = maSaveClick
    end
    object maImportKey: TMenuItem
      Tag = 4
      Caption = '&Import Key or Certificate'
      ShortCut = 0
      OnClick = maSaveClick
    end
    object N11: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object maSaveAllAttach: TMenuItem
      Caption = 'Save &All Attachments...'
      ShortCut = 24641
      OnClick = maSaveAllAttachClick
    end
    object maForward: TMenuItem
      Caption = '&Forward...'
      ShortCut = 16454
      Visible = False
    end
    object MovetoPreviouslyviewedAtt: TMenuItem
      Tag = -1
      Caption = 'Move to Previously viewed'
      ShortCut = 32805
      Visible = False
      OnClick = mlMovePrevClick
    end
    object MovetoNextviewedAtt: TMenuItem
      Tag = 1
      Caption = 'Move to Next viewed'
      ShortCut = 32807
      Visible = False
      OnClick = mlMovePrevClick
    end
    object MovetoNextunreadAtt: TMenuItem
      Tag = 1
      Caption = 'Move to &Next unread'
      ShortCut = 49191
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object MovetoPreviousunreadAtt: TMenuItem
      Tag = -1
      Caption = 'Move to Pre&vious unread'
      ShortCut = 49189
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object mfMovetNextUAtt: TMenuItem
      Tag = 1
      Caption = 'Move to next unread'
      ShortCut = 16605
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object mfMovePrevURAtt: TMenuItem
      Tag = -1
      Caption = 'Move to previous unread'
      ShortCut = 16603
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object Popup1: TMenuItem
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
      OnClick = Popup1Click
    end
  end
  object ViewPopup: TPopupMenu
    OnPopup = ViewPopupPopup
    Left = 88
    Top = 120
    object MovetoNextunread3: TMenuItem
      Tag = 1
      Caption = 'Move to &Next unread'
      ShortCut = 49191
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object MovetoPreviousunread3: TMenuItem
      Tag = -1
      Caption = 'Move to Pre&vious unread'
      ShortCut = 49189
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object mmvNextUR: TMenuItem
      Tag = 1
      Caption = 'Move to Next Unread'
      ShortCut = 16605
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object mmvPrevUR: TMenuItem
      Tag = -1
      Caption = 'Move to Previous Unread'
      ShortCut = 16603
      Visible = False
      OnClick = mmNextUnreadClick
    end
    object MovetoPreviouslyviewed2: TMenuItem
      Tag = -1
      Caption = 'Move to Previously viewed'
      ShortCut = 32805
      Visible = False
      OnClick = mlMovePrevClick
    end
    object MovetoNextviewed2: TMenuItem
      Tag = 1
      Caption = 'Move to Next viewed'
      ShortCut = 32807
      Visible = False
      OnClick = mlMovePrevClick
    end
    object meNewMail: TMenuItem
      Tag = 11
      Caption = '&Write a Message to This Address...'
      ShortCut = 0
      OnClick = bNewMailClick
    end
    object meReplyLink: TMenuItem
      Caption = 'R&eply to This Address...'
      ShortCut = 0
      OnClick = meReplyLinkClick
    end
    object meAddAddress: TMenuItem
      Caption = 'Add to Address &Book'
      ShortCut = 0
      OnClick = meAddAddressClick
    end
    object meOpenLink: TMenuItem
      Caption = '&Open URL'
      ShortCut = 0
      OnClick = meOpenLinkClick
    end
    object meCopyLink: TMenuItem
      Caption = '&Copy URL'
      ShortCut = 0
      OnClick = meCopyLinkClick
    end
    object meDivider: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mmReply2: TMenuItem
      Caption = '&Reply...'
      ShortCut = 16397
      OnClick = bReplyClick
    end
    object mReplyCtrlR: TMenuItem
      Caption = '&Reply...'
      ShortCut = 16466
      Visible = False
      OnClick = bReplyClick
    end
    object mvReplyAll: TMenuItem
      Tag = 2
      Caption = 'Re&ply to All'
      ShortCut = 24589
      OnClick = bReplyClick
    end
    object mvForward: TMenuItem
      Tag = 1
      Caption = '&Forward...'
      ShortCut = 8308
      Visible = False
      OnClick = bReplyClick
    end
    object mvForward2: TMenuItem
      Tag = 1
      Caption = '&Forward...'
      ShortCut = 8205
      OnClick = bReplyClick
    end
    object mpSaveAs: TMenuItem
      Caption = '&Save as...'
      ShortCut = 16467
      OnClick = mSaveMessageClick
    end
    object mvDelete: TMenuItem
      Caption = 'Delete'
      ShortCut = 46
      Visible = False
      OnClick = bDeleteClick
    end
    object N24: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mlCopy: TMenuItem
      Caption = '&Copy'
      ShortCut = 16429
      OnClick = mlCopyClick
    end
    object mlCopyC: TMenuItem
      Caption = '&Copy'
      ShortCut = 16451
      Visible = False
      OnClick = mlCopyClick
    end
    object mlCopyTo: TMenuItem
      Caption = 'Copy &To...'
      ShortCut = 32813
      OnClick = mlCopyToClick
    end
    object ml_SelectAll: TMenuItem
      Caption = 'Select &All'
      ShortCut = 16449
      OnClick = ml_SelectAllClick
    end
    object mvMoveDown: TMenuItem
      Caption = 'Move Down'
      ShortCut = 32
      Visible = False
      OnClick = mvMoveDownClick
    end
    object N14: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mlPGPDecrypt: TMenuItem
      Caption = '&OpenPGP Decrypt'
      ShortCut = 24644
      Visible = False
    end
    object mlFind: TMenuItem
      Caption = 'Find...'
      ShortCut = 16454
      OnClick = mlFindClick
    end
    object mFindNext: TMenuItem
      Caption = 'Find Next'
      ShortCut = 114
      Visible = False
      OnClick = mlFindNextClick
    end
    object mlFindNext: TMenuItem
      Caption = 'Find Next'
      ShortCut = 16460
      OnClick = mlFindNextClick
    end
    object meProperties: TMenuItem
      Caption = '&Preferences...'
      ShortCut = 0
      OnClick = moEditorClick
    end
    object N15: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object ml_Kludges: TMenuItem
      Caption = 'RFC-&822 headers'
      ShortCut = 0
      OnClick = ms_KludgesClick
    end
    object mlXLat: TMenuItem
      Caption = 'C&haracter set'
      ShortCut = 0
      object mlNone: TMenuItem
        Caption = '&None'
        GroupIndex = 10
        RadioItem = True
        ShortCut = 0
      end
      object N20: TMenuItem
        Caption = '-'
        GroupIndex = 10
        ShortCut = 0
      end
      object N35: TMenuItem
        Caption = '-'
        GroupIndex = 11
        ShortCut = 0
      end
      object mmAutodetectXLT: TMenuItem
        Caption = '&Auto-detect'
        GroupIndex = 11
        ShortCut = 32821
        OnClick = mAutodetectXLTClick
      end
      object mmSetAsDefault: TMenuItem
        Caption = '&Set as default'
        GroupIndex = 11
        ShortCut = 0
        OnClick = mSetAsDefaultClick
      end
    end
    object Popup2: TMenuItem
      Tag = 1
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
      OnClick = Popup1Click
    end
  end
  object CheckTimer: TTimer
    Enabled = False
    OnTimer = CheckTimerTimer
    Left = 440
    Top = 80
  end
  object UnregTimer: TTimer
    Enabled = False
    Interval = 10
    OnTimer = UnregTimerTimer
    Left = 280
    Top = 80
  end
  object tmBat: TTimer
    Enabled = False
    Interval = 200
    OnTimer = tmBatTimer
    Left = 376
    Top = 80
  end
  object TrayIco: TTrayIcon
    Active = True
    Hint = 'The Bat!'
    IconHandle = 0
    PopupMenu = TrayPop
    SeparateIcon = False
    OnClick = TrayIcoDblClick
    OnMinimize = TrayIcoMinimize
    Left = 108
    Top = 40
  end
  object TrayPop: TPopupMenu
    OnPopup = TrayPopPopup
    Left = 184
    Top = 120
    object mtRestore: TMenuItem
      Caption = '&Restore'
      Default = True
      ShortCut = 0
      OnClick = TrayIcoDblClick
    end
    object mtMinimise: TMenuItem
      Caption = '&Minimise'
      ShortCut = 0
      OnClick = mtMinimiseClick
    end
    object N26: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mtFetch: TMenuItem
      Caption = '&Get new mail'
      ShortCut = 0
      OnClick = mmFetchClick
    end
    object mtSend: TMenuItem
      Caption = 'Send &Queued mail'
      ShortCut = 0
      OnClick = bSendClick
    end
    object mtCheck: TMenuItem
      Caption = '&Check mail for all accounts'
      ShortCut = 0
      OnClick = mFetchAllAccountsClick
    end
    object mtSendAll: TMenuItem
      Tag = -1
      Caption = '&Send mail from all accounts'
      ShortCut = 0
      OnClick = mSendAllQueuedClick
    end
    object mtDispatch: TMenuItem
      Caption = '&Dispatch mail on server'
      ShortCut = 0
      object mtDispatchNew: TMenuItem
        Caption = '&New messages only'
        ShortCut = 0
        OnClick = mDispatchNewClick
      end
      object mtDispatchAll: TMenuItem
        Tag = 1
        Caption = '&All messages'
        ShortCut = 0
        OnClick = mDispatchNewClick
      end
    end
    object N47: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mtNew: TMenuItem
      Caption = '&New message...'
      ShortCut = 0
      OnClick = bNewMailClick
    end
    object mtAddressBook: TMenuItem
      Caption = 'Address &Book'
      ShortCut = 0
      OnClick = mAddressBookClick
    end
    object mtViewLog: TMenuItem
      Caption = '&View Log'
      ShortCut = 0
      OnClick = mViewLogClick
    end
    object mtAccount: TMenuItem
      Caption = '&Active account'
      ShortCut = 0
    end
    object N27: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mtExit: TMenuItem
      Caption = 'E&xit'
      ShortCut = 0
      OnClick = mExitClick
    end
  end
  object iButtons: TImageList
    AllocBy = 8
    Height = 20
    Width = 20
    Left = 76
    Top = 64
  end
  object Purger: TTimer
    OnTimer = PurgerTimer
    Left = 409
    Top = 80
  end
  object mMainMenu: TMainMenu
    Left = 232
    Top = 40
    object mMessage: TMenuItem
      Caption = '&Message'
      HelpContext = 11001
      ShortCut = 0
      OnClick = mMessageClick
      object mmNew: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = bNewMailClick
      end
      object mSubmitForm: TMenuItem
        Caption = 'Su&bmit a Form'
        ShortCut = 0
      end
      object mmReply: TMenuItem
        Caption = '&Reply'
        ShortCut = 16500
        OnClick = bReplyClick
      end
      object mmReplyAll: TMenuItem
        Tag = 2
        Caption = 'Reply to &All'
        ShortCut = 24692
        OnClick = bReplyClick
      end
      object mmForward: TMenuItem
        Tag = 1
        Caption = 'For&ward'
        ShortCut = 8308
        OnClick = bReplyClick
      end
      object mmResend: TMenuItem
        Caption = 'Re-s&end'
        ShortCut = 8309
        OnClick = mmResendClick
      end
      object mRedirect: TMenuItem
        Tag = 4
        Caption = 'Redirec&t'
        ShortCut = 16501
        OnClick = bReplyClick
      end
      object N55: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmMoveMsg: TMenuItem
        Caption = '&Move to Folder...'
        ShortCut = 0
        OnClick = mmMoveMsgClick
      end
      object mmCopyMsg: TMenuItem
        Tag = 1
        Caption = '&Copy to Folder...'
        ShortCut = 0
        OnClick = mmMoveMsgClick
      end
      object mmSaveAs: TMenuItem
        Caption = '&Save As...'
        ShortCut = 32884
        OnClick = mSaveMessageClick
      end
      object mmDelete: TMenuItem
        Caption = '&Delete'
        ShortCut = 0
        OnClick = bDeleteClick
      end
      object mAttachments: TMenuItem
        Caption = 'Attachments'
        ShortCut = 0
        object mAttOpen: TMenuItem
          Tag = 1
          Caption = '&Open...'
          ShortCut = 0
          OnClick = maSaveClick
        end
        object mAttSave: TMenuItem
          Caption = '&Save...'
          ShortCut = 0
          OnClick = maSaveClick
        end
        object mAttDelete: TMenuItem
          Tag = 3
          Caption = '&Delete'
          ShortCut = 0
          OnClick = maSaveClick
        end
        object mAttPrint: TMenuItem
          Tag = 2
          Caption = '&Print...'
          ShortCut = 0
          OnClick = maSaveClick
        end
        object mAttImport: TMenuItem
          Tag = 4
          Caption = '&Import Key'
          ShortCut = 0
          OnClick = maSaveClick
        end
        object N56: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mSaveAllAttachments: TMenuItem
          Caption = 'Save &All Attachments...'
          ShortCut = 0
          OnClick = maSaveAllAttachClick
        end
      end
      object mmSpecials: TMenuItem
        Caption = 'Spec&ials'
        ShortCut = 0
        object mAddSender: TMenuItem
          Caption = '&Add sender to Address Book'
          ShortCut = 0
          OnClick = mmAddAddressClick
        end
        object mAddRcpt: TMenuItem
          Tag = 1
          Caption = 'Add &recipient to Address Book'
          ShortCut = 0
          OnClick = mmAddAddressClick
        end
        object mDeleteAddress: TMenuItem
          Caption = '&Delete from Address Book'
          ShortCut = 0
          OnClick = mmDeleteAddressClick
        end
        object mDelRcpt: TMenuItem
          Tag = 1
          Caption = 'D&elete recipient from Address Book'
          ShortCut = 0
          OnClick = mmDeleteAddressClick
        end
        object mCreateFilter: TMenuItem
          Caption = '&Create Filter...'
          ShortCut = 0
          OnClick = mmMakeFilterClick
        end
        object mOpenReply: TMenuItem
          Caption = '&Open Reply'
          ShortCut = 0
          OnClick = mmFindReplyClick
        end
        object N9: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mPark: TMenuItem
          Caption = '&Park'
          ShortCut = 0
          OnClick = mmParkClick
        end
        object mUnpark: TMenuItem
          Tag = 1
          Caption = '&Unpark'
          ShortCut = 0
          OnClick = mmParkClick
        end
        object N48: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mReplySelected: TMenuItem
          Tag = 7
          Caption = 'Reply &Quoting selected text'
          ShortCut = 115
          OnClick = bReplyClick
        end
        object mReplyNoQuotes: TMenuItem
          Tag = 5
          Caption = 'Reply &without quotation'
          ShortCut = 8307
          OnClick = bReplyClick
        end
        object mReplySender: TMenuItem
          Tag = 6
          Caption = 'Reply to the &Sender'
          ShortCut = 16499
          OnClick = bReplyClick
        end
        object mAltForward: TMenuItem
          Tag = 10
          Caption = 'Alternative &Forward'
          ShortCut = 41076
          OnClick = bReplyClick
        end
      end
      object N25: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mMarkUnread: TMenuItem
        Caption = 'Mark as &Unread'
        ShortCut = 16469
        OnClick = mmMarkunreadClick
      end
      object mMarkRead: TMenuItem
        Tag = 1
        Caption = 'Mark as &Read'
        ShortCut = 16461
        OnClick = mmMarkunreadClick
      end
      object mFlags: TMenuItem
        Caption = '&Flags'
        ShortCut = 0
        object mf_Flagged: TMenuItem
          Tag = 2
          Caption = '&Flagged'
          ShortCut = 0
          OnClick = mf_FlaggedClick
        end
        object mf_Replied: TMenuItem
          Tag = 1
          Caption = '&Replied'
          ShortCut = 0
          OnClick = mf_FlaggedClick
        end
        object mf_Forwarded: TMenuItem
          Tag = 3
          Caption = 'F&orwarded/Redirected'
          ShortCut = 0
          OnClick = mf_FlaggedClick
        end
        object N53: TMenuItem
          Caption = '-'
          ShortCut = 0
          OnClick = mf_FlaggedClick
        end
        object mf_NormalPty: TMenuItem
          Tag = 5
          Caption = '&Normal priority'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mf_FlaggedClick
        end
        object mf_HighPty: TMenuItem
          Tag = 7
          Caption = '&High priority'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mf_FlaggedClick
        end
        object mf_LowPty: TMenuItem
          Tag = 6
          Caption = '&Low priority'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mf_FlaggedClick
        end
      end
      object mColors: TMenuItem
        Caption = 'Colour &Group'
        ShortCut = 0
      end
      object N16: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mViewsource: TMenuItem
        Caption = '&View source'
        ShortCut = 120
        OnClick = mViewsourceClick
      end
      object mmPrint: TMenuItem
        Caption = '&Print...'
        ShortCut = 0
        OnClick = mmPrintClick
      end
      object mPrintSetup: TMenuItem
        Caption = 'Print setup'
        ShortCut = 0
        OnClick = mPrintSetupClick
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Test1: TMenuItem
        Caption = 'Test!'
        ShortCut = 57428
        Visible = False
      end
      object mExit: TMenuItem
        Caption = 'E&xit'
        ShortCut = 32856
        OnClick = mExitClick
      end
      object mNewMsg: TMenuItem
        Caption = 'Ne&w'
        ShortCut = 116
        Visible = False
        OnClick = bNewMailClick
      end
    end
    object mFolder: TMenuItem
      Caption = '&Folder'
      HelpContext = 11002
      ShortCut = 0
      object mmCreateNewFolder: TMenuItem
        Caption = '&New...'
        ShortCut = 0
        OnClick = mNewFolderClick
      end
      object mfDelete: TMenuItem
        Caption = '&Delete...'
        ShortCut = 0
        OnClick = mDelFolderClick
      end
      object N21: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mfBrowse: TMenuItem
        Caption = '&Browse'
        ShortCut = 0
        OnClick = mfBrowseClick
      end
      object mfCompress: TMenuItem
        Caption = '&Compress'
        ShortCut = 0
        OnClick = mfCompressClick
      end
      object mMarkFolderRead: TMenuItem
        Caption = '&Mark all messages Read'
        ShortCut = 0
        OnClick = mMarkFolderReadClick
      end
      object mmEmptyFolder: TMenuItem
        Caption = '&Empty'
        ShortCut = 0
        OnClick = mEmptyFolderClick
      end
      object mfRefresh: TMenuItem
        Caption = '&Refresh'
        ShortCut = 0
        OnClick = mfRefreshClick
      end
      object mffRefilter: TMenuItem
        Caption = 'Re-&filter'
        ShortCut = 0
        OnClick = mRefilterClick
      end
      object mfKillDupes: TMenuItem
        Caption = '&Kill Dupes'
        ShortCut = 0
        OnClick = mfKillDupesClick
      end
      object mBrowseDeleted: TMenuItem
        Caption = 'Bro&wse deleted messages'
        ShortCut = 0
        OnClick = mBrowseDeletedClick
      end
      object mPurgeCompress: TMenuItem
        Tag = 1
        Caption = 'Purge+C&ompress'
        ShortCut = 0
        OnClick = mfCompressClick
      end
      object N43: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mCompressAll: TMenuItem
        Caption = 'Compress &All folders'
        ShortCut = 0
        OnClick = mCompressAllClick
      end
      object mPurgeAll: TMenuItem
        Tag = 1
        Caption = 'P&urge All folders'
        ShortCut = 0
        OnClick = mCompressAllClick
      end
      object mKillAllDupes: TMenuItem
        Tag = 2
        Caption = 'Kill d&upes in All folders'
        ShortCut = 0
        OnClick = mCompressAllClick
      end
      object N34: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mfProperties: TMenuItem
        Caption = '&Properties...'
        ShortCut = 0
        OnClick = mEditFolderClick
      end
    end
    object mAccount: TMenuItem
      Caption = '&Account'
      HelpContext = 11003
      ShortCut = 0
      object mNewAccount: TMenuItem
        Caption = '&New...'
        ShortCut = 0
        OnClick = mNewAccountClick
      end
      object mDelAccount: TMenuItem
        Caption = '&Delete...'
        ShortCut = 0
        OnClick = mDelAccountClick
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmFetch: TMenuItem
        Caption = '&Get New Mail'
        ShortCut = 113
        OnClick = mmFetchClick
      end
      object mmSendQueue: TMenuItem
        Caption = '&Send Queued Mail'
        ShortCut = 8305
        OnClick = bSendClick
      end
      object maChangePOP3: TMenuItem
        Caption = 'Change POP&3 Password...'
        ShortCut = 0
        OnClick = maChangePOP3Click
      end
      object mmLock: TMenuItem
        Caption = 'Set &Access Password...'
        ShortCut = 16507
        OnClick = mmLockClick
      end
      object mViewLog: TMenuItem
        Caption = '&View Log'
        ShortCut = 24641
        OnClick = mViewLogClick
      end
      object mRefreshFolders: TMenuItem
        Caption = '&Refresh folders'
        ShortCut = 16504
        OnClick = mRefreshFoldersClick
      end
      object maDispatch: TMenuItem
        Caption = 'Dispatc&h Mail On Server'
        ShortCut = 0
        object mDispatchNew: TMenuItem
          Caption = '&New Messages Only'
          ShortCut = 16497
          OnClick = mDispatchNewClick
        end
        object mDispatchAll: TMenuItem
          Tag = 1
          Caption = '&All Messages'
          ShortCut = 24689
          OnClick = mDispatchNewClick
        end
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mMsgSort: TMenuItem
        Caption = 'Sorting &Office/Filters'
        ShortCut = 24659
        OnClick = mMsgSortClick
      end
      object mEditAccount: TMenuItem
        Caption = '&Properties...'
        ShortCut = 24656
        OnClick = mEditAccountClick
      end
    end
    object mTools: TMenuItem
      Caption = '&Tools'
      HelpContext = 11004
      ShortCut = 0
      object mAddressBook: TMenuItem
        Caption = '&Address Book'
        HelpContext = 10043
        ShortCut = 119
        OnClick = mAddressBookClick
      end
      object mSearch: TMenuItem
        Caption = '&Search...'
        ShortCut = 118
        OnClick = mSearchClick
      end
      object N23: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmExport: TMenuItem
        Caption = '&Export Messages'
        ShortCut = 0
        object mExportMsg: TMenuItem
          Caption = '&Message files (.MSG)'
          ShortCut = 0
          OnClick = mmExportClick
        end
        object mExportUnix: TMenuItem
          Caption = '&UNIX Mailbox'
          ShortCut = 0
          OnClick = mExportUnixClick
        end
      end
      object mtImportM: TMenuItem
        Caption = '&Import Messages'
        ShortCut = 0
        object mmImport: TMenuItem
          Caption = '&From .MSG-files...'
          ShortCut = 0
          OnClick = mmImportClick
        end
        object mmImportUNIX: TMenuItem
          Caption = 'From &UNIX-mailboxes...'
          ShortCut = 0
          OnClick = mmImportUNIXClick
        end
        object mmImportMSB: TMenuItem
          Tag = 1
          Caption = 'From .MSB-files...'
          ShortCut = 0
          OnClick = mmImportUNIXClick
        end
        object mmImportTBB: TMenuItem
          Tag = 2
          Caption = 'From The Bat! Message Base (.TBB-files) ...'
          ShortCut = 0
          OnClick = mmImportUNIXClick
        end
        object N31: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object MailboxImportWizard1: TMenuItem
          Caption = '&Mailbox Import Wizard'
          ShortCut = 0
          OnClick = MailboxImportWizard1Click
        end
      end
      object N57: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object maBackup: TMenuItem
        Caption = '&Backup...'
        ShortCut = 0
        OnClick = maBackupClick
      end
      object maRestore: TMenuItem
        Tag = 1
        Caption = 'R&estore...'
        ShortCut = 0
        OnClick = maBackupClick
      end
      object maSynchronise: TMenuItem
        Tag = 2
        Caption = 'Syn&chronise...'
        ShortCut = 0
        OnClick = maBackupClick
      end
      object N28: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmPGP: TMenuItem
        Caption = '&OpenPGP'
        ShortCut = 0
        object mmPGPDecrypt: TMenuItem
          Caption = 'OpenPGP &Decrypt'
          ShortCut = 24644
          OnClick = mPGPDecryptClick
        end
        object mPGPcheck: TMenuItem
          Caption = 'C&heck OpenPGP Signature'
          ShortCut = 24643
          OnClick = mPGPcheckClick
        end
        object N46: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mmPGPver: TMenuItem
          Caption = 'Choose OpenPGP Version'
          ShortCut = 0
          OnClick = mmPGPverClick
        end
        object mPgpImport: TMenuItem
          Caption = 'Import OpenPGP &Key'
          ShortCut = 0
          OnClick = mPgpImportClick
        end
        object mPgpKeys: TMenuItem
          Caption = 'OpenPGP Key &Manager'
          ShortCut = 0
          OnClick = mPgpKeysClick
        end
        object mPGPcfg: TMenuItem
          Caption = '&OpenPGP Preferences'
          ShortCut = 0
          OnClick = mPGPcfgClick
        end
        object N45: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mtSmartCard: TMenuItem
          Caption = 'SmartCard'
          ShortCut = 0
          object mtsCloseReader: TMenuItem
            Caption = 'Close Reader'
            ShortCut = 0
            OnClick = mtsCloseReaderClick
          end
          object N36: TMenuItem
            Caption = '-'
            ShortCut = 0
          end
          object mtsUnblock: TMenuItem
            Caption = 'Unblock PIN'
            ShortCut = 0
            OnClick = mtsUnblockClick
          end
          object mtsChangePIN: TMenuItem
            Caption = 'Change PIN'
            ShortCut = 0
            OnClick = mtsChangePINClick
          end
        end
      end
      object N22: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mFetchAllAccounts: TMenuItem
        Caption = '&Check Mail For All'
        ShortCut = 32881
        OnClick = mFetchAllAccountsClick
      end
      object mSendAllQueued: TMenuItem
        Caption = 'Send &Queued Mail From All'
        ShortCut = 41073
        OnClick = mSendAllQueuedClick
      end
    end
    object mView: TMenuItem
      Caption = '&View'
      HelpContext = 11005
      ShortCut = 0
      OnClick = mViewClick
      object Toolbars1: TMenuItem
        Caption = '&Toolbars'
        ShortCut = 0
        object ms_MainToolbar: TMenuItem
          Caption = '&Main'
          ShortCut = 0
          OnClick = ms_MainToolbarClick
        end
        object mtbConfig: TMenuItem
          Caption = '&Configuration'
          ShortCut = 0
          OnClick = mtbConfigClick
        end
        object mtbQSearch: TMenuItem
          Caption = '&Quick search'
          ShortCut = 0
          OnClick = mtbQSearchClick
        end
      end
      object ms_Autoview: TMenuItem
        Caption = '&Message Auto-view'
        Checked = True
        ShortCut = 24645
        OnClick = ms_AutoviewClick
      end
      object mvAddrView: TMenuItem
        Caption = 'Address Aut&o-view'
        ShortCut = 24655
        OnClick = mvAddrViewClick
      end
      object mShowMemo: TMenuItem
        Caption = 'Memo A&uto-view'
        ShortCut = 24649
        OnClick = mShowMemoClick
      end
      object mvLog: TMenuItem
        Caption = '&Log Panel'
        ShortCut = 24652
        OnClick = mvLogClick
      end
      object msFiles: TMenuItem
        Caption = '&Attached Files'
        HelpContext = 10041
        ShortCut = 0
        object mvAutoAttach: TMenuItem
          Caption = 'Show &Automatically'
          GroupIndex = 2
          RadioItem = True
          ShortCut = 0
          OnClick = mvAutoAttachClick
        end
        object mvShowAttach: TMenuItem
          Tag = 1
          Caption = '&Show always'
          GroupIndex = 2
          RadioItem = True
          ShortCut = 0
          OnClick = mvAutoAttachClick
        end
        object mvHideAttach: TMenuItem
          Tag = 2
          Caption = '&Hide'
          GroupIndex = 2
          RadioItem = True
          ShortCut = 0
          OnClick = mvAutoAttachClick
        end
      end
      object N37: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmfDisplay: TMenuItem
        Caption = '&Display'
        ShortCut = 0
        OnClick = mmfDisplayClick
        object mmfAll: TMenuItem
          Caption = '&All messages'
          GroupIndex = 8
          RadioItem = True
          ShortCut = 16571
          OnClick = mmfAllClick
        end
        object mmfUnread: TMenuItem
          Caption = 'Only &Unread messages'
          GroupIndex = 20
          RadioItem = True
          ShortCut = 0
          OnClick = mmfUnreadClick
        end
        object mmfRead: TMenuItem
          Tag = 1
          Caption = 'Only &Read messages'
          GroupIndex = 20
          RadioItem = True
          ShortCut = 0
          OnClick = mmfUnreadClick
        end
        object mmfFlagged: TMenuItem
          Tag = 6
          Caption = 'Only &Flagged messages'
          GroupIndex = 20
          RadioItem = True
          ShortCut = 0
          OnClick = mmfUnreadClick
        end
        object mmfUnflagged: TMenuItem
          Tag = 7
          Caption = 'Only Unf&lagged messages'
          GroupIndex = 20
          RadioItem = True
          ShortCut = 0
          OnClick = mmfUnreadClick
        end
        object mmfParked: TMenuItem
          Tag = 2
          Caption = 'Only &Parked messages'
          GroupIndex = 21
          RadioItem = True
          ShortCut = 0
          OnClick = mmfUnreadClick
        end
        object mmfUnparked: TMenuItem
          Tag = 3
          Caption = 'Only U&nparked messages'
          GroupIndex = 21
          RadioItem = True
          ShortCut = 0
          OnClick = mmfUnreadClick
        end
        object mmfAttach: TMenuItem
          Tag = 4
          Caption = 'Only messages with &Attachments'
          GroupIndex = 22
          RadioItem = True
          ShortCut = 0
          OnClick = mmfUnreadClick
        end
        object mmfNoAttach: TMenuItem
          Tag = 5
          Caption = 'Only messages &without Attachments'
          GroupIndex = 22
          RadioItem = True
          ShortCut = 0
          OnClick = mmfUnreadClick
        end
        object N38: TMenuItem
          Caption = '-'
          GroupIndex = 22
          ShortCut = 0
        end
        object mmfAdvanced: TMenuItem
          Caption = 'Ad&vanced filtering...'
          GroupIndex = 23
          ShortCut = 0
          OnClick = mmfAdvancedClick
        end
      end
      object mmsSort: TMenuItem
        Caption = '&Sort by'
        ShortCut = 0
        OnClick = mmsSortClick
        object mmsReceived: TMenuItem
          Tag = 6
          Caption = '&Received time'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 16433
          OnClick = mmsReceivedClick
        end
        object mmsCreation: TMenuItem
          Tag = 5
          Caption = '&Creation time'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 16434
          OnClick = mmsReceivedClick
        end
        object mmsSize: TMenuItem
          Tag = 9
          Caption = 'Si&ze'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 16435
          OnClick = mmsReceivedClick
        end
        object mmsSender: TMenuItem
          Tag = 2
          Caption = '&From'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 16436
          OnClick = mmsReceivedClick
        end
        object mmsRecipient: TMenuItem
          Tag = 3
          Caption = '&To'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 16437
          OnClick = mmsReceivedClick
        end
        object mmsSubject: TMenuItem
          Tag = 4
          Caption = '&Subject'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 16438
          OnClick = mmsReceivedClick
        end
        object mmsFlags: TMenuItem
          Tag = 1
          Caption = '&Message Flags'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 16439
          OnClick = mmsReceivedClick
        end
        object mmsAttachment: TMenuItem
          Tag = 8
          Caption = '&Attachment presence'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 16440
          OnClick = mmsReceivedClick
        end
        object mmsParking: TMenuItem
          Tag = 9
          Caption = '&Parking/Draft flag'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 16441
          OnClick = mmsReceivedClick
        end
        object N39: TMenuItem
          Caption = '-'
          GroupIndex = 11
          ShortCut = 0
        end
        object mmsDescending: TMenuItem
          Caption = '&Descending order'
          GroupIndex = 11
          ShortCut = 16432
          OnClick = mmsDescendingClick
        end
      end
      object mmtThread: TMenuItem
        Caption = '&View threads by'
        ShortCut = 0
        OnClick = mmtThreadClick
        object mmtNone: TMenuItem
          Caption = '&None'
          GroupIndex = 12
          RadioItem = True
          ShortCut = 32816
          OnClick = mmtNoneClick
        end
        object N40: TMenuItem
          Caption = '-'
          GroupIndex = 12
          RadioItem = True
          ShortCut = 0
        end
        object mmtStandard: TMenuItem
          Tag = 1
          Caption = '&References (standard)'
          GroupIndex = 12
          RadioItem = True
          ShortCut = 32817
          OnClick = mmtNoneClick
        end
        object mmtSubject: TMenuItem
          Tag = 2
          Caption = '&Subject'
          GroupIndex = 12
          RadioItem = True
          ShortCut = 32818
          OnClick = mmtNoneClick
        end
        object mmtFrom: TMenuItem
          Tag = 3
          Caption = '&From'
          GroupIndex = 12
          RadioItem = True
          ShortCut = 32819
          OnClick = mmtNoneClick
        end
        object mmtTo: TMenuItem
          Tag = 4
          Caption = '&To'
          GroupIndex = 12
          RadioItem = True
          ShortCut = 32820
          OnClick = mmtNoneClick
        end
      end
      object MessagelistColumns1: TMenuItem
        Caption = 'Message List &Columns'
        ShortCut = 0
        OnClick = MessagelistColumns1Click
      end
      object N8: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mSplit: TMenuItem
        Caption = 'Split M&ode'
        ShortCut = 0
        object msHorizontal: TMenuItem
          Caption = '&Full-width Preview pane'
          Checked = True
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = msHorizontalClick
        end
        object msVertical: TMenuItem
          Tag = 1
          Caption = '&Horizontal split'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = msHorizontalClick
        end
        object msFullTree: TMenuItem
          Tag = 2
          Caption = 'Full-height &Account tree'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = msHorizontalClick
        end
        object msVSplit: TMenuItem
          Tag = 4
          Caption = '&Vertical split'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = msHorizontalClick
        end
        object msFHPreview: TMenuItem
          Tag = 3
          Caption = 'Full-height &Preview pane'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = msHorizontalClick
        end
      end
      object N18: TMenuItem
        Caption = '-'
        GroupIndex = 10
        ShortCut = 0
      end
      object mmHeaderMenu: TMenuItem
        Caption = 'Message &Header'
        GroupIndex = 11
        ShortCut = 0
        object mmHeader: TMenuItem
          Caption = '&Show'
          ShortCut = 24648
          OnClick = mmHeaderClick
        end
        object N30: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mhfFrom: TMenuItem
          Caption = '&From'
          Checked = True
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfReplyTo: TMenuItem
          Tag = 1
          Caption = '&Reply-To'
          Checked = True
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfSender: TMenuItem
          Tag = 2
          Caption = '&X-Sender'
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfTO: TMenuItem
          Tag = 3
          Caption = '&TO'
          Checked = True
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfCC: TMenuItem
          Tag = 4
          Caption = '&CC'
          Checked = True
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfBCC: TMenuItem
          Tag = 5
          Caption = '&BCC'
          Checked = True
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfMailer: TMenuItem
          Tag = 7
          Caption = '&Mailer'
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfCreated: TMenuItem
          Tag = 8
          Caption = 'Cr&eation time'
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfReceived: TMenuItem
          Tag = 9
          Caption = 'Recei&ved Time'
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfComments: TMenuItem
          Tag = 10
          Caption = 'C&omments'
          ShortCut = 0
          OnClick = mhfFromClick
        end
        object mhfMessageID: TMenuItem
          Tag = 11
          Caption = 'Message &ID'
          ShortCut = 0
          OnClick = mhfFromClick
        end
      end
      object ms_Kludges: TMenuItem
        Caption = 'RFC-&822 headers'
        GroupIndex = 11
        ShortCut = 24651
        OnClick = ms_KludgesClick
      end
      object N12: TMenuItem
        Caption = '-'
        GroupIndex = 11
        ShortCut = 0
      end
      object mmXlat: TMenuItem
        Caption = 'Charact&er set'
        GroupIndex = 11
        HelpContext = 10037
        ShortCut = 0
        object mtNone: TMenuItem
          Caption = '&None'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mtNoneClick
        end
        object N19: TMenuItem
          Caption = '-'
          GroupIndex = 10
          ShortCut = 0
        end
        object N1: TMenuItem
          Caption = '-'
          GroupIndex = 11
          ShortCut = 0
        end
        object mAutodetectXLT: TMenuItem
          Caption = '&Auto-detect'
          GroupIndex = 11
          ShortCut = 0
          OnClick = mAutodetectXLTClick
        end
        object mSetAsDefault: TMenuItem
          Caption = '&Set as default'
          GroupIndex = 11
          ShortCut = 0
          OnClick = mSetAsDefaultClick
        end
      end
    end
    object mOptions: TMenuItem
      Caption = '&Options'
      HelpContext = 11006
      ShortCut = 0
      OnClick = mOptionsClick
      object mPrefs: TMenuItem
        Caption = '&Preferences'
        ShortCut = 0
        OnClick = mPrefsClick
      end
      object N61: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmSimple: TMenuItem
        Caption = 'Simple Interface'
        ShortCut = 57535
        Visible = False
        OnClick = mmSimpleClick
      end
      object moEditor: TMenuItem
        Caption = '&Editor Preferences'
        HelpContext = 10027
        ShortCut = 0
        OnClick = moEditorClick
      end
      object mQTemplates: TMenuItem
        Caption = '&Quick Templates'
        ShortCut = 24657
        OnClick = mQTemplatesClick
      end
      object mNetCfg: TMenuItem
        Caption = '&Network && Administration'
        ShortCut = 0
        OnClick = mNetCfgClick
      end
      object mEditColors: TMenuItem
        Caption = 'Message List C&olours'
        ShortCut = 0
        OnClick = mEditColorsClick
      end
      object moXLAT: TMenuItem
        Caption = '&XLAT Tables'
        HelpContext = 10037
        ShortCut = 0
        OnClick = moXLATClick
      end
      object moSMIME: TMenuItem
        Caption = 'S/MIME'
        ShortCut = 0
        OnClick = moSMIMEClick
      end
      object mSbmForms: TMenuItem
        Caption = 'Submission &Forms'
        ShortCut = 0
        OnClick = mSbmFormsClick
      end
      object mDefineHotKeys: TMenuItem
        Caption = '&Define System Hot-Keys'
        ShortCut = 0
        OnClick = mDefineHotKeysClick
      end
      object N52: TMenuItem
        Caption = '-'
        ShortCut = 0
        Visible = False
      end
      object mMiniTray: TMenuItem
        Caption = '&Minimise to Tray'
        ShortCut = 0
        Visible = False
        OnClick = mMiniTrayClick
      end
      object mIconAni: TMenuItem
        Caption = 'Icon &Animation'
        ShortCut = 0
        Visible = False
        OnClick = mIconAniClick
      end
      object mCoolHints: TMenuItem
        Caption = '&Cool Hints'
        ShortCut = 0
        Visible = False
        OnClick = mCoolHintsClick
      end
      object moExtImgView: TMenuItem
        Caption = 'External Image &Viewer'
        ShortCut = 0
        Visible = False
        OnClick = moExtImgViewClick
      end
      object moHTMLAutoview: TMenuItem
        Caption = '&HTML Auto-view'
        ShortCut = 0
        Visible = False
        OnClick = moHTMLAutoviewClick
      end
      object moHighColorImages: TMenuItem
        Caption = 'High-Colour &Images'
        ShortCut = 0
        Visible = False
        OnClick = moHighColorImagesClick
      end
      object N13: TMenuItem
        Caption = '-'
        ShortCut = 0
        Visible = False
      end
      object moConMon: TMenuItem
        Caption = '&Show Connection Centre'
        ShortCut = 0
        Visible = False
        OnClick = moConMonClick
        object mdunShowAuto: TMenuItem
          Caption = '&Automatically'
          Checked = True
          GroupIndex = 20
          RadioItem = True
          ShortCut = 0
          OnClick = mdunShowAutoClick
        end
        object mdunShow: TMenuItem
          Tag = 1
          Caption = '&Show always'
          GroupIndex = 20
          RadioItem = True
          ShortCut = 0
          OnClick = mdunShowAutoClick
        end
        object mdunHide: TMenuItem
          Tag = -1
          Caption = '&Hide'
          GroupIndex = 20
          RadioItem = True
          ShortCut = 0
          OnClick = mdunShowAutoClick
        end
      end
      object mLngDivider: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mLanguage: TMenuItem
        Caption = '&Language'
        HelpContext = 10038
        ShortCut = 0
        OnClick = mLanguageClick
        object plEnglish: TMenuItem
          Caption = '&English'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plBulgarian: TMenuItem
          Tag = 6
          Caption = '&Bulgarian'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plChinese: TMenuItem
          Tag = 18
          Caption = 'Chinese'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plCzech: TMenuItem
          Tag = 14
          Caption = '&Czech'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plDutch: TMenuItem
          Tag = 9
          Caption = '&Dutch'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plFinnish: TMenuItem
          Tag = 12
          Caption = 'Fi&nnish'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plFrench: TMenuItem
          Tag = 19
          Caption = '&French'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plGerman: TMenuItem
          Tag = 8
          Caption = '&German'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plHungarian: TMenuItem
          Tag = 15
          Caption = '&Hungarian'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plItalian: TMenuItem
          Tag = 13
          Caption = '&Italian'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plLithuanian: TMenuItem
          Tag = 17
          Caption = '&Lithuanian'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plPolish: TMenuItem
          Tag = 7
          Caption = '&Polish'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plPortugese: TMenuItem
          Tag = 16
          Caption = 'P&ortuguese'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plRussian: TMenuItem
          Tag = 1
          Caption = '&Russian'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plMitky: TMenuItem
          Tag = 2
          Caption = 'Russian (&Mitky)'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plRomanian: TMenuItem
          Tag = 3
          Caption = 'R&omanian'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plSerbian: TMenuItem
          Tag = 24
          Caption = 'Serbian'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plSpanish: TMenuItem
          Tag = 10
          Caption = '&Spanish'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plSwedish: TMenuItem
          Tag = 11
          Caption = 'S&wedish'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plTurkish: TMenuItem
          Tag = 21
          Caption = '&Turkish'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
        object plUkrainian: TMenuItem
          Tag = 5
          Caption = '&Ukrainian'
          GroupIndex = 10
          HelpContext = 10038
          RadioItem = True
          ShortCut = 0
          OnClick = plEnglishClick
        end
      end
    end
    object mHelp: TMenuItem
      Caption = '&Help'
      HelpContext = 11007
      ShortCut = 0
      object mhTopics: TMenuItem
        Caption = 'Help Topics'
        ShortCut = 0
        OnClick = mhTopicsClick
      end
      object mhTip: TMenuItem
        Caption = '&Tip of The Day'
        ShortCut = 0
        OnClick = mhTipClick
      end
      object mmFAQ: TMenuItem
        Caption = 'Unofficial FA&Q page'
        ShortCut = 0
        OnClick = mmFAQClick
      end
      object mhTechSupport: TMenuItem
        Caption = 'Technical Support'
        ShortCut = 0
        OnClick = mhTechSupportClick
      end
      object N32: TMenuItem
        Caption = '-'
        ShortCut = 0
        Visible = False
      end
      object mhHowReg: TMenuItem
        Caption = 'How To &Register'
        ShortCut = 0
        OnClick = mhHowRegClick
      end
      object mhRegister: TMenuItem
        Caption = '&Enter Registration Code'
        HelpContext = 10047
        ShortCut = 0
        OnClick = mhRegisterClick
      end
      object mhSendRegform: TMenuItem
        Caption = 'Send Registration Form'
        ShortCut = 0
        OnClick = mhSendRegformClick
      end
      object N33: TMenuItem
        Caption = '-'
        ShortCut = 0
        Visible = False
      end
      object mhFeedBack: TMenuItem
        Caption = '&Feedback'
        ShortCut = 0
        object mmBug: TMenuItem
          Tag = 100
          Caption = '&Bug report (English)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmInfoHelp: TMenuItem
          Tag = 101
          Caption = '&Information request (English)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmSuggestions: TMenuItem
          Tag = 102
          Caption = '&Suggestions (English)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmSuggestTip: TMenuItem
          Tag = 103
          Caption = 'Suggest a new &Tip of The Day (English)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object N50: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mmGerBug: TMenuItem
          Tag = 104
          Caption = '&Bug report (German)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmGerInfo: TMenuItem
          Tag = 105
          Caption = '&Information request (German)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmGerWish: TMenuItem
          Tag = 106
          Caption = '&Suggestions (German)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object N58: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mmCzhBug: TMenuItem
          Tag = 107
          Caption = '&Bug report (Czech)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmCzhInfo: TMenuItem
          Tag = 108
          Caption = '&Information request (Czech)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmCzhWish: TMenuItem
          Tag = 109
          Caption = '&Suggestions (Czech)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object N59: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mmFraBug: TMenuItem
          Tag = 110
          Caption = '&Bug report (French)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmFraInfo: TMenuItem
          Tag = 111
          Caption = '&Information request (French)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmFraWish: TMenuItem
          Tag = 112
          Caption = '&Suggestions (French)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object N60: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mmEspBug: TMenuItem
          Tag = 113
          Caption = '&Bug report (Spanish)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmEspInfo: TMenuItem
          Tag = 114
          Caption = '&Information request (Spanish)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
        object mmEspWish: TMenuItem
          Tag = 115
          Caption = '&Suggestions (Spanish)'
          ShortCut = 0
          OnClick = bNewMailClick
        end
      end
      object mhWeb: TMenuItem
        Caption = '&WWW Home Page'
        HelpContext = 10046
        ShortCut = 0
        OnClick = mhWebClick
      end
      object mhAbout: TMenuItem
        Caption = '&About'
        HelpContext = 10002
        ShortCut = 32880
        OnClick = mhAboutClick
      end
    end
  end
  object FinishConnectTimer: TTimer
    Enabled = False
    OnTimer = FinishConnectTimerTimer
    Left = 472
    Top = 80
  end
  object TipTimer: TTimer
    Enabled = False
    Interval = 10
    OnTimer = TipTimerTimer
    Left = 506
    Top = 81
  end
  object ParamTimer: TTimer
    Enabled = False
    Interval = 10
    OnTimer = ParamTimerTimer
    Left = 538
    Top = 81
  end
  object tmFolderDrop: TTimer
    Interval = 2000
    OnTimer = tmFolderDropTimer
    Left = 210
    Top = 89
  end
  object tmSearch: TTimer
    Interval = 200
    OnTimer = tmSearchTimer
    Left = 381
    Top = 129
  end
  object pmSearch: TPopupMenu
    Left = 216
    Top = 120
    object msFindNext: TMenuItem
      Caption = 'Find &Next'
      ShortCut = 16397
      OnClick = msFindNextClick
    end
    object msFindPrev: TMenuItem
      Tag = 1
      Caption = 'Find &Previous'
      ShortCut = 24589
      OnClick = msFindNextClick
    end
    object MenuItem1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object msUndo: TMenuItem
      Caption = '&Undo'
      ShortCut = 0
      OnClick = msUndoClick
    end
    object MenuItem2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object msCut: TMenuItem
      Caption = 'C&ut'
      ShortCut = 0
      OnClick = msCutClick
    end
    object msCopy: TMenuItem
      Caption = 'C&opy'
      ShortCut = 0
      OnClick = msCopyClick
    end
    object msPaste: TMenuItem
      Caption = '&Paste'
      ShortCut = 0
      OnClick = msPasteClick
    end
    object MenuItem3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object msSelectAll: TMenuItem
      Caption = 'Select all'
      ShortCut = 0
      OnClick = msSelectAllClick
    end
  end
  object ReadFolderTimer: TTimer
    Interval = 100
    OnTimer = ReadFolderTimerTimer
    Left = 344
    Top = 81
  end
  object pSendRcv: TPopupMenu
    OnPopup = pSendRcvPopup
    Left = 152
    Top = 120
    object N42: TMenuItem
      Tag = -1
      Caption = '-'
      ShortCut = 0
    end
    object mppCheckAll: TMenuItem
      Tag = -1
      Caption = '&Check Mail For All'
      ShortCut = 32881
      OnClick = mFetchAllAccountsClick
    end
    object mppSendAll: TMenuItem
      Tag = -1
      Caption = '&Send Mail From All'
      ShortCut = 41073
      OnClick = mSendAllQueuedClick
    end
    object mppSendCheckAll: TMenuItem
      Tag = -1
      Caption = 'Send + Check for &All'
      ShortCut = 0
      OnClick = mppSendCheckAllClick
    end
  end
  object DelayAboutTimer: TTimer
    Enabled = False
    OnTimer = DelayAboutTimerTimer
    Left = 148
    Top = 191
  end
  object iKeyPollTimer: TTimer
    OnTimer = iKeyPollTimerTimer
    Left = 168
    Top = 248
  end
  object RAS: TRAS
    Left = 568
    Top = 80
  end
  object Timer1: TTimer
    Left = 24
    Top = 297
  end
  object tmBirth: TTimer
    Interval = 60000
    OnTimer = tmBirthTimer
    Left = 619
    Top = 83
  end
  object tbDDE: TDdeServerConv
    OnExecuteMacro = tbDDEExecuteMacro
    Left = 90
    Top = 254
  end
end