Chip 2001 August - Disc 3/chip_20018103_hu.iso/honosito/internet/the_bat.exe/thebat.exe/0/RCDATA/TMSGEDITOR/TMSGEDITOR.txt

Text File | 2001-06-19 | 46.6 KB | 1,936 lines

object MsgEditor: TMsgEditor
  Left = 132
  Top = 48
  Width = 616
  Height = 434
  HelpContext = 14003
  Caption = 'Edit Mail Message'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = EditMenu
  Position = poDefaultPosOnly
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DockTop: TDock97
    Left = 0
    Top = 0
    Width = 608
    Height = 32
    object pnTools: TToolbar97
      Left = 0
      Top = 0
      Caption = 'Toolbar'
      DockedTo = DockTop
      DockPos = 0
      TabOrder = 0
      object bQPasteFrom: TToolbarButton97
        Left = 366
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Paste from a file as Quotation'
        ParentShowHint = False
        ShowHint = True
        OnClick = mQPasteFromClick
      end
      object bPasteFrom: TToolbarButton97
        Left = 336
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Paste from a file'
        ParentShowHint = False
        ShowHint = True
        OnClick = mPasteFromClick
      end
      object bSend: TToolbarButton97
        Left = 0
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Send the letter'
        ParentShowHint = False
        ShowHint = True
        OnClick = bSend1Click
      end
      object bSearch: TToolbarButton97
        Left = 246
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Search Text'
        ParentShowHint = False
        ShowHint = True
        OnClick = bSearch1Click
      end
      object bQPaste: TToolbarButton97
        Left = 216
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Paste Quoted'
        ParentShowHint = False
        ShowHint = True
        OnClick = mQPasteClick
      end
      object bPaste: TToolbarButton97
        Left = 186
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Paste from Clipboard'
        ParentShowHint = False
        ShowHint = True
        OnClick = mPasteClick
      end
      object bCut: TToolbarButton97
        Left = 156
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Cut to Clipboard'
        ParentShowHint = False
        ShowHint = True
        OnClick = mCutClick
      end
      object bCopy: TToolbarButton97
        Left = 126
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Copy to Clipboard'
        ParentShowHint = False
        ShowHint = True
        OnClick = mCopyClick
      end
      object bSave: TToolbarButton97
        Left = 90
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Save the message'
        ParentShowHint = False
        ShowHint = True
        OnClick = tmSaveTimer
      end
      object bDraft: TToolbarButton97
        Tag = 1
        Left = 60
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Save draft'
        ParentShowHint = False
        ShowHint = True
        OnClick = bStore1Click
      end
      object bStore: TToolbarButton97
        Left = 30
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Put the letter in Outbox'
        ParentShowHint = False
        ShowHint = True
        OnClick = bStore1Click
      end
      object ToolbarSep971: TToolbarSep97
        Left = 396
        Top = 0
      end
      object bReplace: TToolbarButton97
        Left = 276
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Search & Replace'
        ParentShowHint = False
        ShowHint = True
        OnClick = bReplace1Click
      end
      object bCopyTo: TToolbarButton97
        Left = 306
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Copy to a file'
        ParentShowHint = False
        ShowHint = True
        OnClick = mCopyToClick
      end
      object ToolbarSep972: TToolbarSep97
        Left = 120
        Top = 0
      end
      object bAttach: TToolbarButton97
        Tag = 10
        Left = 402
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Attach a file'
        ParentShowHint = False
        ShowHint = True
        OnClick = mAddMIMEClick
      end
      object bCancel: TToolbarButton97
        Left = 438
        Top = 0
        Width = 30
        Height = 28
        Hint = 'Cancel the message'
        ParentShowHint = False
        ShowHint = True
        OnClick = mCancelClick
      end
      object ToolbarSep973: TToolbarSep97
        Left = 432
        Top = 0
      end
    end
  end
  object DockBottom: TDock97
    Left = 0
    Top = 379
    Width = 608
    Height = 9
    Position = dpBottom
  end
  object DockLeft: TDock97
    Left = 0
    Top = 32
    Width = 9
    Height = 347
    Position = dpLeft
  end
  object DockRight: TDock97
    Left = 599
    Top = 32
    Width = 9
    Height = 347
    Position = dpRight
  end
  object Panel1: TPanel
    Left = 9
    Top = 32
    Width = 590
    Height = 347
    Align = alClient
    BevelOuter = bvNone
    BevelWidth = 9
    TabOrder = 4
    object Panel3: TPanel
      Left = 0
      Top = 96
      Width = 590
      Height = 251
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      OnClick = mShowToolsClick
      object Split1: TSplitter
        Left = 57
        Top = 0
        Width = 3
        Height = 231
        Cursor = crHSplit
        Beveled = False
      end
      object pnAttach: TPanel
        Left = 0
        Top = 0
        Width = 57
        Height = 231
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 2
        object fList: TListView
          Left = 0
          Top = 0
          Width = 57
          Height = 231
          HelpContext = 10041
          Align = alClient
          OnDblClick = fListDblClick
          Columns = <>
          ReadOnly = True
          IconOptions.AutoArrange = True
          PopupMenu = AttachPopup
          ShowColumnHeaders = False
          TabOrder = 0
          LargeImages = fImages
          SmallImages = fImages
          StateImages = fImages
        end
      end
      object sBar: TStatusBar
        Left = 0
        Top = 231
        Width = 590
        Height = 20
        Panels = <
          item
            Text = '    1:1'
            Width = 80
          end
          item
            Width = 70
          end
          item
            Text = 'Stream'
            Width = 70
          end
          item
            Text = 'Insert'
            Width = 70
          end
          item
            Style = psOwnerDraw
            Text = 'Normal'
            Width = 64
          end
          item
            Text = 'Account'
            Width = 120
          end
          item
            Text = 'Windows'
            Width = 50
          end>
        SimplePanel = False
        OnMouseDown = sBarMouseDown
        OnDrawPanel = sBarDrawPanel
      end
      object Panel2: TPanel
        Left = 60
        Top = 0
        Width = 530
        Height = 231
        Align = alClient
        BevelOuter = bvLowered
        BevelWidth = 2
        TabOrder = 0
        object Split2: TSplitter
          Left = 2
          Top = 49
          Width = 526
          Height = 4
          Cursor = crVSplit
          Align = alTop
        end
        object pnHeader: TPanel
          Left = 2
          Top = 2
          Width = 526
          Height = 47
          Align = alTop
          BorderWidth = 1
          BorderStyle = bsSingle
          TabOrder = 0
          Visible = False
          object oMsg: TTextEditor
            Left = 2
            Top = 2
            Width = 518
            Height = 39
            OnPosChanged = eMsgPosChanged
            OnBlockChanged = eMsgBlockChanged
            BgColor = clWhite
            TextColor = clBlack
            SelColor = clWhite
            SelBgColor = clBlack
            QuoteColor = clBlue
            RefColor = clBlue
            Kludge1Color = clOlive
            Kludge2Color = clOlive
            Kludge3Color = clOlive
            ReadOnly = True
            OnSelectionChanged = eMsgSelectionChanged
            OnInsChange = eMsgInsChange
            OnApplicationPopup = Popup3Click
            FontCharset = 1
            TabOrder = 0
            Visible = False
            Font.Color = clBlack
            Font.Height = -15
            Font.Name = 'Courier New'
            Font.Pitch = fpFixed
            Font.Style = []
            Align = alClient
            OnMouseMove = eMsgMouseMove
            OnEnter = oMsgEnter
            PopupMenu = EditPopup
            OnDblClick = eMsgDblClick
          end
        end
        object eMsg: TTextEditor
          Left = 2
          Top = 53
          Width = 526
          Height = 176
          HelpContext = 10027
          OnPosChanged = eMsgPosChanged
          OnBlockChanged = eMsgBlockChanged
          BgColor = clWhite
          TextColor = clBlack
          SelColor = clWhite
          SelBgColor = clBlack
          QuoteColor = clBlue
          RefColor = clBlue
          Kludge1Color = clOlive
          Kludge2Color = clOlive
          Kludge3Color = clOlive
          ReadOnly = False
          OnSelectionChanged = eMsgSelectionChanged
          OnModifiedChange = eMsgModifiedChange
          OnInsChange = eMsgInsChange
          SpellPopup = SpellPopup
          OnApplicationPopup = Popup3Click
          FontCharset = 1
          TabOrder = 1
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = 'Courier New'
          Font.Pitch = fpFixed
          Font.Style = []
          Align = alClient
          OnMouseMove = eMsgMouseMove
          OnEnter = eMsgEnter
          OnDblClick = eMsgDblClick
        end
      end
    end
    object gInfo: TAddressGrid
      Left = 0
      Top = 0
      Width = 590
      Height = 96
      HelpContext = 10044
      Align = alTop
      Color = clBtnFace
      ColCount = 2
      DefaultRowHeight = 20
      RowCount = 7
      FixedRows = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goTabs, goAlwaysShowEditor, goThumbTracking]
      TabOrder = 1
      OnEnter = gInfoEnter
      OnExit = gInfoExit
      OnMouseDown = gInfoMouseDown
      OnSelectCell = gInfoSelectCell
      SimpleLook = False
      OnAddressClick = gInfoAddressClick
      OnAddAddressClick = bAddAddrClick
      ColWidths = (
        64
        506)
    end
  end
  object EditMenu: TMainMenu
    Left = 464
    Top = 72
    object File1: TMenuItem
      Caption = '&Message'
      ShortCut = 0
      object SendNow2: TMenuItem
        Caption = '&Send now'
        ShortCut = 16397
        OnClick = bSend1Click
      end
      object mSend: TMenuItem
        Caption = '&Send now'
        ShortCut = 113
        Visible = False
        OnClick = bSend1Click
      end
      object mQueue: TMenuItem
        Caption = 'Queue in &Outbox'
        ShortCut = 8305
        OnClick = bStore1Click
      end
      object meSave: TMenuItem
        Caption = 'Sa&ve'
        ShortCut = 16467
        OnClick = tmSaveTimer
      end
      object mSaveAs: TMenuItem
        Caption = 'Save &as...'
        ShortCut = 16497
        OnClick = bSaveAsClick
      end
      object mDraft: TMenuItem
        Tag = 1
        Caption = 'Save &Draft'
        ShortCut = 32881
        OnClick = bStore1Click
      end
      object N10: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mPrint: TMenuItem
        Caption = '&Print...'
        ShortCut = 16464
        OnClick = mPrintClick
      end
      object mPrintSetup: TMenuItem
        Caption = 'Print s&etup...'
        ShortCut = 0
        OnClick = mPrintSetupClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mCancel: TMenuItem
        Caption = 'Cancel'
        ShortCut = 0
        OnClick = mCancelClick
      end
    end
    object mEEdit: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      object Undo1: TMenuItem
        Tag = 2
        Caption = '&Undo'
        ShortCut = 0
        OnClick = Undo1Click
      end
      object N11: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mCut: TMenuItem
        Tag = 1
        Caption = 'Cu&t'
        ShortCut = 0
        OnClick = mCutClick
      end
      object mCopy: TMenuItem
        Tag = 1
        Caption = '&Copy'
        ShortCut = 0
        OnClick = mCopyClick
      end
      object mPaste: TMenuItem
        Caption = '&Paste'
        ShortCut = 0
        OnClick = mPasteClick
      end
      object mClear: TMenuItem
        Caption = '&Delete'
        ShortCut = 0
        OnClick = mClearClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mCopyTo: TMenuItem
        Tag = 1
        Caption = 'Cop&y to...'
        ShortCut = 0
        OnClick = mCopyToClick
      end
      object N21: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mPasteFrom: TMenuItem
        Caption = 'Paste &from...'
        ShortCut = 0
        OnClick = mPasteFromClick
      end
      object mQPaste: TMenuItem
        Caption = 'Paste as &Quotation'
        ShortCut = 32813
        OnClick = mQPasteClick
      end
      object mQPasteFrom: TMenuItem
        Caption = 'P&aste as Quotation from...'
        ShortCut = 0
        OnClick = mQPasteFromClick
      end
      object mPasteFormat: TMenuItem
        Caption = 'Pa&ste formatted'
        ShortCut = 24621
        OnClick = mPasteFormatClick
      end
    end
    object Search1: TMenuItem
      Caption = '&Search'
      ShortCut = 0
      object Find1: TMenuItem
        Caption = '&Find...'
        ShortCut = 16454
        OnClick = bSearch1Click
      end
      object mFind: TMenuItem
        Caption = '&Find...'
        ShortCut = 118
        Visible = False
        OnClick = bSearch1Click
      end
      object mReplace: TMenuItem
        Caption = '&Replace...'
        ShortCut = 16502
        OnClick = bReplace1Click
      end
      object Searchagain2: TMenuItem
        Caption = '&Search again'
        ShortCut = 114
        Visible = False
        OnClick = Searchagain1Click
      end
      object Searchagain1: TMenuItem
        Caption = '&Search again'
        ShortCut = 8310
        OnClick = Searchagain1Click
      end
      object Reversesearch1: TMenuItem
        Caption = 'Re&verse search'
        ShortCut = 32886
        OnClick = Reversesearch1Click
      end
    end
    object Utilities1: TMenuItem
      Caption = '&Utilities'
      ShortCut = 0
      OnClick = Utilities1Click
      object mInsertDate: TMenuItem
        Caption = 'Insert &Date'
        ShortCut = 0
        OnClick = mInsertDateClick
      end
      object mInsertTime: TMenuItem
        Caption = 'Insert &Time'
        ShortCut = 0
        OnClick = mInsertDateClick
      end
      object mmInsCookie: TMenuItem
        Caption = 'Insert &Cookie'
        ShortCut = 0
        OnClick = mmInsCookieClick
      end
      object muQuick: TMenuItem
        Caption = 'Insert &Quick template'
        ShortCut = 0
        object none1: TMenuItem
          Caption = '(none)'
          Enabled = False
          ShortCut = 0
        end
      end
      object mAdvanceAddressSearch: TMenuItem
        Caption = 'Advance address search'
        ShortCut = 16571
        Visible = False
        OnClick = mAdvanceAddressSearchClick
      end
      object mReverseAddressSearch: TMenuItem
        Tag = -1
        Caption = 'Reverse address search'
        ShortCut = 16573
        Visible = False
        OnClick = mAdvanceAddressSearchClick
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmFormat: TMenuItem
        Caption = '&Format Block'
        ShortCut = 0
        object AlignLeft1: TMenuItem
          Caption = '&Left'
          ShortCut = 32844
          OnClick = AlignLeft1Click
        end
        object Justify1: TMenuItem
          Caption = '&Justify'
          ShortCut = 32842
          OnClick = Justify1Click
        end
        object Right1: TMenuItem
          Caption = '&Right'
          ShortCut = 32850
          OnClick = Right1Click
        end
        object Center1: TMenuItem
          Caption = '&Center'
          ShortCut = 32835
          OnClick = Center1Click
        end
      end
      object muAutoFormat: TMenuItem
        Caption = 'A&uto-Format'
        ShortCut = 24646
        OnClick = muAutoFormatClick
      end
      object muAutowrap: TMenuItem
        Caption = 'Auto-&Wrap '
        ShortCut = 24663
        OnClick = muAutowrapClick
      end
      object muWrapJustify: TMenuItem
        Caption = '&Justify on autowrap'
        ShortCut = 24650
        OnClick = muWrapJustifyClick
      end
      object N17: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object muAttachvCard: TMenuItem
        Caption = 'Attach Personal vCard'
        ShortCut = 0
        OnClick = muAttachvCardClick
      end
      object Addafile1: TMenuItem
        Caption = '&Attach files'
        ShortCut = 0
        object MIMEcoded1: TMenuItem
          Caption = '&MIME-coded...'
          ShortCut = 32801
          OnClick = mAddMIMEClick
        end
        object QuotedPrintable1: TMenuItem
          Tag = 1
          Caption = '&Quoted-Printable...'
          ShortCut = 0
          OnClick = mAddMIMEClick
        end
        object N18: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object UUencoded1: TMenuItem
          Tag = 3
          Caption = '&UU-encoded...'
          ShortCut = 32802
          OnClick = mAddMIMEClick
        end
      end
    end
    object mbSpell: TMenuItem
      Caption = 'Spell C&hecker'
      ShortCut = 0
      object mbAutoSpell: TMenuItem
        Caption = '&Automatic checking'
        Checked = True
        ShortCut = 16499
        OnClick = mbAutoSpellClick
      end
      object mbSpellAll: TMenuItem
        Caption = '&Check entire text'
        ShortCut = 115
        OnClick = mbSpellAllClick
      end
      object N29: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mbLng: TMenuItem
        Caption = '&Language'
        ShortCut = 0
        object mbAEnglish: TMenuItem
          Caption = 'American English'
          Checked = True
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object BritishEnglish1: TMenuItem
          Tag = 1
          Caption = 'British English'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Catalan1: TMenuItem
          Tag = 2
          Caption = 'Catalan'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Czech1: TMenuItem
          Tag = 3
          Caption = 'Czech'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Danish1: TMenuItem
          Tag = 4
          Caption = 'Danish'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Dutch1: TMenuItem
          Tag = 5
          Caption = 'Dutch'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Finnish1: TMenuItem
          Tag = 6
          Caption = 'Finnish'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object French1: TMenuItem
          Tag = 7
          Caption = 'French'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object German2: TMenuItem
          Tag = 8
          Caption = 'German'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Hungarian1: TMenuItem
          Tag = 9
          Caption = 'Hungarian'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Italian1: TMenuItem
          Tag = 10
          Caption = 'Italian'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Norwegian1: TMenuItem
          Tag = 11
          Caption = 'Norwegian (Bokmal)'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object NorwegianNynorsk1: TMenuItem
          Tag = 12
          Caption = 'Norwegian (Nynorsk)'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Polish1: TMenuItem
          Tag = 13
          Caption = 'Polish'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object PortugeseBrasilian1: TMenuItem
          Tag = 14
          Caption = 'Portuguese (Brazilian)'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object PortugeseIberian1: TMenuItem
          Tag = 15
          Caption = 'Portuguese (Iberian)'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Russian1: TMenuItem
          Tag = 16
          Caption = 'Russian'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Spanish1: TMenuItem
          Tag = 17
          Caption = 'Spanish'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Swedish1: TMenuItem
          Tag = 18
          Caption = 'Swedish'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object N8: TMenuItem
          Tag = -1
          Caption = '-'
          GroupIndex = 10
          ShortCut = 0
        end
        object AmericanEnglish1: TMenuItem
          Tag = 19
          Caption = 'American English'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object AustralianEnglish1: TMenuItem
          Tag = 20
          Caption = 'Australian English'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object BritishEnglish2: TMenuItem
          Tag = 21
          Caption = 'British English'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Catalan2: TMenuItem
          Tag = 22
          Caption = 'Catalan'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Czech2: TMenuItem
          Tag = 23
          Caption = 'Czech'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Danish2: TMenuItem
          Tag = 24
          Caption = 'Danish'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Dutch2: TMenuItem
          Tag = 25
          Caption = 'Dutch'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Finnish2: TMenuItem
          Tag = 26
          Caption = 'Finnish'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object French2: TMenuItem
          Tag = 27
          Caption = 'French'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object French3: TMenuItem
          Tag = 28
          Caption = 'French Canadian'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object German1: TMenuItem
          Tag = 29
          Caption = 'German'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Hungarian2: TMenuItem
          Tag = 30
          Caption = 'Hungarian'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Italian2: TMenuItem
          Tag = 31
          Caption = 'Italian'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object NorwegianBokmal1: TMenuItem
          Tag = 32
          Caption = 'Norwegian (Bokmal)'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object NorwegianNynorsk2: TMenuItem
          Tag = 33
          Caption = 'Norwegian (Nynorsk)'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Polish2: TMenuItem
          Tag = 34
          Caption = 'Polish'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object PortugeseBrasilian2: TMenuItem
          Tag = 35
          Caption = 'Portuguese (Brazilian)'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object PortugeseIberian2: TMenuItem
          Tag = 36
          Caption = 'Portuguese (Iberian)'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Russian2: TMenuItem
          Tag = 37
          Caption = 'Russian'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Spanish2: TMenuItem
          Tag = 38
          Caption = 'Spanish'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Swedish2: TMenuItem
          Tag = 39
          Caption = 'Swedish'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Afrikaans: TMenuItem
          Tag = 40
          Caption = 'Afrikaans'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Albanian: TMenuItem
          Tag = 41
          Caption = 'Albanian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Arabic: TMenuItem
          Tag = 42
          Caption = 'Arabic'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Basque: TMenuItem
          Tag = 43
          Caption = 'Basque'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Belarusian: TMenuItem
          Tag = 44
          Caption = 'Belarusian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Bulgarian: TMenuItem
          Tag = 45
          Caption = 'Bulgarian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Chinese: TMenuItem
          Tag = 46
          Caption = 'Chinese'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Croatian: TMenuItem
          Tag = 47
          Caption = 'Croatian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Estonian: TMenuItem
          Tag = 48
          Caption = 'Estonian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Faeroese: TMenuItem
          Tag = 49
          Caption = 'Faeroese'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Farsi: TMenuItem
          Tag = 50
          Caption = 'Farsi'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Greek: TMenuItem
          Tag = 51
          Caption = 'Greek'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Hebrew: TMenuItem
          Tag = 52
          Caption = 'Hebrew'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Icelandic: TMenuItem
          Tag = 53
          Caption = 'Icelandic'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Indonesian: TMenuItem
          Tag = 54
          Caption = 'Indonesian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Japanese: TMenuItem
          Tag = 55
          Caption = 'Japanese'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Korean: TMenuItem
          Tag = 56
          Caption = 'Korean'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Latvian: TMenuItem
          Tag = 57
          Caption = 'Latvian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Lithuanian: TMenuItem
          Tag = 58
          Caption = 'Lithuanian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Romanian: TMenuItem
          Tag = 59
          Caption = 'Romanian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Serbian: TMenuItem
          Tag = 60
          Caption = 'Serbian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Slovak: TMenuItem
          Tag = 61
          Caption = 'Slovak'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Slovenian: TMenuItem
          Tag = 62
          Caption = 'Slovenian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Thai: TMenuItem
          Tag = 63
          Caption = 'Thai'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Turkish: TMenuItem
          Tag = 64
          Caption = 'Turkish'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Ukrainian: TMenuItem
          Tag = 65
          Caption = 'Ukrainian'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
        object Vietnamese: TMenuItem
          Tag = 66
          Caption = 'Vietnamese'
          GroupIndex = 10
          ShortCut = 0
          OnClick = mbAEnglishClick
        end
      end
      object mbSpellOpts: TMenuItem
        Caption = '&Options...'
        ShortCut = 0
        OnClick = mbSpellOptsClick
      end
      object mbSpellDict: TMenuItem
        Caption = '&Dictionaries...'
        ShortCut = 0
        OnClick = mbSpellDictClick
      end
    end
    object PGP1: TMenuItem
      Caption = '&Privacy'
      ShortCut = 0
      object mpOCrypt: TMenuItem
        Caption = '&Encrypt when Completed'
        ShortCut = 0
        OnClick = mpOSignClick
      end
      object mpOSign: TMenuItem
        Caption = '&Sign when Completed'
        ShortCut = 0
        OnClick = mpOSignClick
      end
      object N20: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mpApplyPGP: TMenuItem
        Caption = 'Enable OpenPGP'
        ShortCut = 0
        OnClick = mpOSignClick
      end
      object mpApplySMIME: TMenuItem
        Caption = 'Enable S/MIME'
        ShortCut = 0
        OnClick = mpOSignClick
      end
      object mpConfigure: TMenuItem
        Tag = 1111
        Caption = 'Set Defaults...'
        ShortCut = 0
        OnClick = mpConfigureClick
      end
      object N14: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mpPGP: TMenuItem
        Caption = 'OpenPGP'
        ShortCut = 0
        object mpgpSignBlock: TMenuItem
          Tag = 1
          Caption = 'Sign &Block'
          ShortCut = 41043
          OnClick = mpgpSignBlockClick
        end
        object mPGPSignText: TMenuItem
          Caption = 'Si&gn Entire Text'
          ShortCut = 24659
          OnClick = mPGPSignTextClick
        end
        object mPGPEncryptText: TMenuItem
          Caption = 'Encr&ypt Entire Text'
          ShortCut = 24645
          OnClick = mPGPEncryptTextClick
        end
        object mPgpSignCrypt: TMenuItem
          Tag = 2
          Caption = 'S&ign && Encrypt Entire Text'
          ShortCut = 41029
          OnClick = mPgpSignCryptClick
        end
        object PGPD2: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mmPGPkeys: TMenuItem
          Caption = 'Key &Manager...'
          ShortCut = 0
          OnClick = mmPGPkeysClick
        end
        object mmPGPprefs: TMenuItem
          Caption = '&Preferences...'
          ShortCut = 0
          OnClick = mmPGPprefsClick
        end
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      ShortCut = 0
      object mShowTools: TMenuItem
        Caption = '&Toolbar'
        Checked = True
        ShortCut = 0
        OnClick = mShowToolsClick
      end
      object mStorePos: TMenuItem
        Caption = '&Store window position'
        ShortCut = 0
        OnClick = mStorePosClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mShowFrom: TMenuItem
        Tag = 1
        Caption = '&From'
        ShortCut = 0
        OnClick = mShowFromClick
      end
      object mShowReplyTo: TMenuItem
        Tag = 2
        Caption = '&Reply-to'
        ShortCut = 0
        OnClick = mShowFromClick
      end
      object mShowCC: TMenuItem
        Tag = 3
        Caption = '&Carbon Copy'
        Checked = True
        ShortCut = 0
        OnClick = mShowFromClick
      end
      object mShowBCC: TMenuItem
        Tag = 5
        Caption = '&Blind CC'
        Checked = True
        ShortCut = 0
        OnClick = mShowFromClick
      end
      object mShowFollowup: TMenuItem
        Tag = 7
        Caption = '&Follow-up to'
        ShortCut = 0
        OnClick = mShowFromClick
      end
      object mShowOrg: TMenuItem
        Tag = 8
        Caption = 'Org&anisation'
        ShortCut = 0
        OnClick = mShowFromClick
      end
      object mShowReturn: TMenuItem
        Tag = 11
        Caption = 'Ret&urn-path'
        ShortCut = 0
        OnClick = mShowFromClick
      end
      object mShowComment: TMenuItem
        Tag = 9
        Caption = 'Co&mments'
        ShortCut = 0
        OnClick = mShowFromClick
      end
      object N16: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mShowOrigin: TMenuItem
        Caption = '&Original text'
        Enabled = False
        ShortCut = 0
        OnClick = mShowOriginClick
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object mRcptConfirm: TMenuItem
        Caption = '&Confirm Receipt'
        ShortCut = 0
        OnClick = mRcptConfirmClick
      end
      object mReadConfirm: TMenuItem
        Caption = '&Reading confirmation'
        ShortCut = 0
        OnClick = mReadConfirmClick
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mNormal: TMenuItem
        Caption = '&Normal Priority'
        Checked = True
        GroupIndex = 2
        RadioItem = True
        ShortCut = 0
        OnClick = mNormalClick
      end
      object mHigh: TMenuItem
        Caption = '&High Priority'
        GroupIndex = 2
        RadioItem = True
        ShortCut = 0
        OnClick = mNormalClick
      end
      object mLow: TMenuItem
        Caption = '&Low priority'
        GroupIndex = 2
        RadioItem = True
        ShortCut = 0
        OnClick = mNormalClick
      end
      object N13: TMenuItem
        Caption = '-'
        GroupIndex = 2
        ShortCut = 0
      end
      object mmXlat: TMenuItem
        Caption = '&Message encoding'
        GroupIndex = 2
        ShortCut = 0
        object mtNone: TMenuItem
          Caption = '&None'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mtNoneClick
        end
        object N19: TMenuItem
          Caption = '-'
          Enabled = False
          GroupIndex = 10
          ShortCut = 0
        end
      end
      object N12: TMenuItem
        Caption = '-'
        GroupIndex = 2
        ShortCut = 0
      end
      object meAccount: TMenuItem
        Caption = '&Active account'
        GroupIndex = 2
        ShortCut = 0
      end
    end
  end
  object tCheck: TTimer
    OnTimer = tCheckTimer
    Left = 489
    Top = 33
  end
  object fImages: TImageList
    Height = 32
    Width = 32
    Left = 16
    Top = 291
  end
  object AttachPopup: TPopupMenu
    OnPopup = AttachPopupPopup
    Left = 16
    Top = 252
    object mAddFile: TMenuItem
      Caption = '&Add a file'
      ShortCut = 0
      object mAddMIME: TMenuItem
        Caption = '&MIME-coded'
        ShortCut = 45
        OnClick = mAddMIMEClick
      end
      object mAddQuoted: TMenuItem
        Tag = 1
        Caption = '&Quoted-Printable'
        ShortCut = 32813
        OnClick = mAddMIMEClick
      end
      object N15: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mAddUUE: TMenuItem
        Tag = 2
        Caption = '&UU-encoded'
        ShortCut = 16429
        OnClick = mAddMIMEClick
      end
    end
    object N6: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object maSave: TMenuItem
      Caption = '&Save...'
      ShortCut = 13
      OnClick = maSaveClick
    end
    object maDel: TMenuItem
      Caption = '&Delete'
      ShortCut = 46
      OnClick = maDelClick
    end
    object maView: TMenuItem
      Tag = 1
      Caption = '&Open...'
      ShortCut = 16397
      OnClick = maSaveClick
    end
    object maPrint: TMenuItem
      Tag = 2
      Caption = '&Print...'
      ShortCut = 0
      OnClick = maSaveClick
    end
    object MenuItem1: TMenuItem
      Caption = '-'
      ShortCut = 0
      Visible = False
    end
    object maForward: TMenuItem
      Caption = '&Forward...'
      ShortCut = 16454
      Visible = False
    end
    object PopUp1: TMenuItem
      Caption = 'PopUp'
      ShortCut = 32889
      Visible = False
      OnClick = PopUp1Click
    end
  end
  object ViewPopup: TPopupMenu
    OnPopup = ViewPopupPopup
    Left = 16
    Top = 336
    object meNewMail: TMenuItem
      Tag = 11
      Caption = '&Write a message...'
      ShortCut = 0
    end
    object meReplyLink: TMenuItem
      Caption = 'R&eply to this address...'
      ShortCut = 8308
    end
    object meAddAddress: TMenuItem
      Caption = '&Add e-mail to address book'
      ShortCut = 0
      OnClick = meAddAddressClick
    end
    object meOpenLink: TMenuItem
      Caption = '&Open this link'
      ShortCut = 0
      OnClick = meOpenLinkClick
    end
    object meCopyLink: TMenuItem
      Caption = '&Location to Clipboard'
      ShortCut = 0
      OnClick = meCopyLinkClick
    end
    object meDivider: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mlCopy: TMenuItem
      Caption = '&Copy'
      ShortCut = 16429
      OnClick = mlCopyClick
    end
    object mlCopyTo: TMenuItem
      Caption = 'Copy &To...'
      ShortCut = 32813
      OnClick = mCopyToClick
    end
    object N9: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object meSaveAs: TMenuItem
      Caption = '&Save as...'
      ShortCut = 16467
      OnClick = bSaveAsClick
    end
    object MenuItem4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object meProperties: TMenuItem
      Caption = '&Preferences...'
      ShortCut = 0
      OnClick = Editorpreferences1Click
    end
    object Popup2: TMenuItem
      Tag = 1
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
      OnClick = PopUp1Click
    end
  end
  object tmSave: TTimer
    Enabled = False
    OnTimer = tmSaveTimer
    Left = 366
    Top = 144
  end
  object EditPopup: TPopupMenu
    AutoPopup = False
    OnPopup = EditPopupPopup
    Left = 16
    Top = 152
    object meQuote: TMenuItem
      Caption = '&Quote'
      ShortCut = 0
      Visible = False
      OnClick = meQuoteClick
    end
    object meQuoteWO: TMenuItem
      Tag = 1
      Caption = 'Quote &Without Prefixes'
      ShortCut = 0
      Visible = False
      OnClick = meQuoteClick
    end
    object meCopy: TMenuItem
      Caption = '&Copy'
      ShortCut = 16429
      OnClick = mCopyClick
    end
    object meCut: TMenuItem
      Caption = 'C&ut'
      ShortCut = 8238
      OnClick = mCutClick
    end
    object mePaste: TMenuItem
      Caption = '&Paste'
      ShortCut = 8237
      OnClick = mPasteClick
    end
    object mePasteQuoted: TMenuItem
      Caption = 'Paste as &Quotation'
      ShortCut = 32813
      OnClick = mQPasteClick
    end
    object meDelete: TMenuItem
      Caption = '&Delete'
      ShortCut = 0
      OnClick = mClearClick
    end
    object mInsCookie: TMenuItem
      Caption = 'I&nsert  Cookie'
      ShortCut = 0
      OnClick = mmInsCookieClick
    end
    object meQuick: TMenuItem
      Caption = 'Insert Quick &Template'
      ShortCut = 16416
      OnClick = meQuickClick
    end
    object N24: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object meFind: TMenuItem
      Caption = '&Find...'
      ShortCut = 118
      OnClick = bSearch1Click
    end
    object meReplace: TMenuItem
      Caption = '&Replace...'
      ShortCut = 16502
      OnClick = bReplace1Click
    end
    object meSearchAgain: TMenuItem
      Caption = '&Search Again'
      ShortCut = 8310
      OnClick = Searchagain1Click
    end
    object N23: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Blocktype1: TMenuItem
      Caption = '&Block type'
      ShortCut = 0
      object meStream: TMenuItem
        Caption = '&Stream'
        Checked = True
        GroupIndex = 2
        RadioItem = True
        ShortCut = 0
        OnClick = meStreamClick
      end
      object meColumn: TMenuItem
        Tag = 1
        Caption = '&Column'
        GroupIndex = 2
        RadioItem = True
        ShortCut = 0
        OnClick = meStreamClick
      end
      object meLinear: TMenuItem
        Tag = 2
        Caption = '&Linear'
        GroupIndex = 2
        RadioItem = True
        ShortCut = 0
        OnClick = meStreamClick
      end
    end
    object mePrefs: TMenuItem
      Caption = 'Pr&eferences...'
      ShortCut = 0
      OnClick = Editorpreferences1Click
    end
    object SelectAll1: TMenuItem
      Caption = 'Select All'
      ShortCut = 0
      OnClick = SelectAll1Click
    end
    object Popup3: TMenuItem
      Tag = 1
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
      OnClick = Popup3Click
    end
    object Undo: TMenuItem
      Caption = 'Undo'
      ShortCut = 32776
      Visible = False
      OnClick = Undo1Click
    end
  end
  object sbPop: TPopupMenu
    AutoPopup = False
    OnPopup = sbPopPopup
    Left = 264
    Top = 263
    object msbStream: TMenuItem
      Caption = '&Stream'
      GroupIndex = 1
      RadioItem = True
      ShortCut = 0
      OnClick = meStreamClick
    end
    object msbColumn: TMenuItem
      Tag = 1
      Caption = '&Column'
      GroupIndex = 1
      RadioItem = True
      ShortCut = 0
      OnClick = meStreamClick
    end
    object msbLinear: TMenuItem
      Tag = 2
      Caption = '&Linear'
      GroupIndex = 1
      RadioItem = True
      ShortCut = 0
      OnClick = meStreamClick
    end
    object msbInsert: TMenuItem
      Caption = '&Insert mode'
      GroupIndex = 2
      RadioItem = True
      ShortCut = 0
      OnClick = msbInsertClick
    end
    object msbOverride: TMenuItem
      Tag = 1
      Caption = '&Overwrite mode'
      GroupIndex = 2
      RadioItem = True
      ShortCut = 0
      OnClick = msbInsertClick
    end
    object msbHigh: TMenuItem
      Caption = '&High priority'
      GroupIndex = 3
      RadioItem = True
      ShortCut = 0
      OnClick = msbHighClick
    end
    object msbNormal: TMenuItem
      Tag = 1
      Caption = '&Normal priority'
      GroupIndex = 3
      RadioItem = True
      ShortCut = 0
      OnClick = msbHighClick
    end
    object msbLow: TMenuItem
      Tag = 2
      Caption = '&Low priority'
      GroupIndex = 3
      RadioItem = True
      ShortCut = 0
      OnClick = msbHighClick
    end
    object msbDiv: TMenuItem
      Caption = '-'
      GroupIndex = 3
      ShortCut = 0
    end
    object msbRRQ: TMenuItem
      Caption = '&Confirm Receipt'
      GroupIndex = 4
      ShortCut = 0
      OnClick = msbRRQClick
    end
    object msbRead: TMenuItem
      Caption = '&Reading confirmation'
      GroupIndex = 4
      ShortCut = 0
      OnClick = msbReadClick
    end
  end
  object msbXlat: TPopupMenu
    Left = 366
    Top = 247
    object msbNone: TMenuItem
      Caption = '&None'
      GroupIndex = 10
      RadioItem = True
      ShortCut = 0
      OnClick = msbNoneClick
    end
    object N25: TMenuItem
      Caption = '-'
      Enabled = False
      GroupIndex = 10
      ShortCut = 0
    end
  end
  object SpellPopup: TPopupMenu
    Left = 16
    Top = 196
    object nosuggestions1: TMenuItem
      Caption = '(no suggestions)'
      Enabled = False
      ShortCut = 0
      Visible = False
    end
    object N28: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mspSuggest: TMenuItem
      Caption = '&Suggest more...'
      ShortCut = 0
      OnClick = mspSuggestClick
    end
    object N7: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mspIgnoreAll: TMenuItem
      Caption = '&Ignore all'
      ShortCut = 0
      OnClick = mspIgnoreAllClick
    end
    object mspAddWord: TMenuItem
      Caption = '&Add to dictionary'
      ShortCut = 0
      OnClick = mspAddWordClick
    end
    object Dictionarytoadd1: TMenuItem
      Caption = '&Dictionary to add to'
      ShortCut = 0
    end
    object mspOptions: TMenuItem
      Caption = '&Options...'
      ShortCut = 0
      OnClick = mbSpellOptsClick
    end
  end
  object pmUsers: TPopupMenu
    Left = 181
    Top = 224
  end
end