object Form1: TForm1
  Left = 154
  Top = 82
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Mail2000 Demo'
  ClientHeight = 429
  ClientWidth = 618
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 618
    Height = 429
    ActivePage = TabSheet3
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'POP3'
      object Label1: TLabel
        Left = 20
        Top = 24
        Width = 121
        Height = 13
        AutoSize = False
        Caption = 'Host'
        FocusControl = eHost
      end
      object Label2: TLabel
        Left = 20
        Top = 68
        Width = 121
        Height = 13
        AutoSize = False
        Caption = 'UserName'
        FocusControl = eUsername
      end
      object Label3: TLabel
        Left = 20
        Top = 112
        Width = 121
        Height = 13
        AutoSize = False
        Caption = 'Password'
        FocusControl = ePassword
      end
      object lStatus: TLabel
        Left = 20
        Top = 288
        Width = 153
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Disconnected'
      end
      object Label4: TLabel
        Left = 300
        Top = 24
        Width = 181
        Height = 13
        AutoSize = False
        Caption = 'Last response (may be truncated)'
      end
      object Label25: TLabel
        Left = 8
        Top = 359
        Width = 246
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = 'Comments to: tmail2000@yahoogroups.com'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label26: TLabel
        Left = 152
        Top = 24
        Width = 50
        Height = 13
        AutoSize = False
        Caption = 'Port'
        FocusControl = ePort
      end
      object Label31: TLabel
        Left = 8
        Top = 375
        Width = 493
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = 
          'Please visit and check for lastest version at http://groups.yaho' +
          'o.com/group/tmail2000'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label30: TLabel
        Left = 76
        Top = 200
        Width = 65
        Height = 13
        Caption = '<- Message #'
      end
      object bConnect: TButton
        Left = 20
        Top = 160
        Width = 75
        Height = 25
        Caption = 'Connect'
        TabOrder = 4
        OnClick = bConnectClick
      end
      object eHost: TEdit
        Left = 20
        Top = 40
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object eUsername: TEdit
        Left = 20
        Top = 84
        Width = 121
        Height = 21
        TabOrder = 2
      end
      object ePassword: TEdit
        Left = 20
        Top = 128
        Width = 121
        Height = 21
        PasswordChar = '*'
        TabOrder = 3
      end
      object bDisconnect: TButton
        Left = 104
        Top = 160
        Width = 77
        Height = 25
        Caption = 'Disconnect'
        Enabled = False
        TabOrder = 5
        OnClick = bDisconnectClick
      end
      object bRetrieve: TButton
        Left = 20
        Top = 228
        Width = 77
        Height = 21
        Caption = 'Retrieve'
        Enabled = False
        TabOrder = 9
        OnClick = bRetrieveClick
      end
      object eMsgNum: TEdit
        Left = 20
        Top = 196
        Width = 33
        Height = 21
        TabOrder = 7
        Text = '1'
      end
      object UpDown1: TUpDown
        Left = 53
        Top = 196
        Width = 15
        Height = 21
        Associate = eMsgNum
        Min = 1
        Position = 1
        TabOrder = 8
        Wrap = False
      end
      object ProgressBar1: TProgressBar
        Left = 20
        Top = 307
        Width = 150
        Height = 16
        Anchors = [akLeft, akBottom]
        Min = 0
        Max = 100
        TabOrder = 13
      end
      object ProgressBar2: TProgressBar
        Left = 20
        Top = 331
        Width = 150
        Height = 16
        Anchors = [akLeft, akBottom]
        Min = 0
        Max = 100
        TabOrder = 14
      end
      object ePort: TEdit
        Left = 152
        Top = 40
        Width = 50
        Height = 21
        TabOrder = 1
        Text = '110'
      end
      object mResponse: TMemo
        Left = 300
        Top = 40
        Width = 281
        Height = 325
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 15
      end
      object cbHeader: TCheckBox
        Left = 104
        Top = 230
        Width = 97
        Height = 17
        Caption = 'Only header'
        TabOrder = 10
      end
      object bDelete: TButton
        Left = 20
        Top = 256
        Width = 77
        Height = 21
        Caption = 'Delete'
        Enabled = False
        TabOrder = 11
        OnClick = bDeleteClick
      end
      object bUIDL: TButton
        Left = 104
        Top = 256
        Width = 77
        Height = 21
        Caption = 'Get UIDL'
        Enabled = False
        TabOrder = 12
        OnClick = bUIDLClick
      end
      object bAbort: TButton
        Left = 188
        Top = 160
        Width = 77
        Height = 25
        Caption = 'Abort'
        TabOrder = 6
        OnClick = bAbortClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Message'
      ImageIndex = 1
      object PageControl2: TPageControl
        Left = 0
        Top = 0
        Width = 610
        Height = 401
        ActivePage = TabSheet7
        Align = alClient
        TabOrder = 0
        object TabSheet5: TTabSheet
          Caption = 'Header'
          ImageIndex = 1
          object Label7: TLabel
            Left = 20
            Top = 8
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'From name'
            FocusControl = eFromName
          end
          object Label8: TLabel
            Left = 20
            Top = 52
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'From address'
            FocusControl = eFromAddress
          end
          object Label10: TLabel
            Left = 308
            Top = 8
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'Reply-to name'
            FocusControl = eReplyName
          end
          object Label11: TLabel
            Left = 308
            Top = 52
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'Reply-to address'
            FocusControl = eReplyAddress
          end
          object Label12: TLabel
            Left = 20
            Top = 96
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'Subject'
            FocusControl = eSubject
          end
          object Label13: TLabel
            Left = 308
            Top = 96
            Width = 97
            Height = 13
            AutoSize = False
            Caption = 'Date'
            FocusControl = dtDate
          end
          object Label14: TLabel
            Left = 420
            Top = 96
            Width = 97
            Height = 13
            AutoSize = False
            Caption = 'Time'
            FocusControl = dtTime
          end
          object Label15: TLabel
            Left = 20
            Top = 208
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'To names'
          end
          object Label16: TLabel
            Left = 308
            Top = 208
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'To addresses'
          end
          object Label17: TLabel
            Left = 20
            Top = 284
            Width = 121
            Height = 13
            Anchors = [akLeft, akBottom]
            AutoSize = False
            Caption = 'Cc names'
          end
          object Label18: TLabel
            Left = 308
            Top = 284
            Width = 121
            Height = 13
            Anchors = [akLeft, akBottom]
            AutoSize = False
            Caption = 'Cc addresses'
          end
          object Label28: TLabel
            Left = 20
            Top = 140
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'Name (To or Cc)'
          end
          object Label29: TLabel
            Left = 308
            Top = 140
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'Address (To or Cc)'
          end
          object eFromName: TEdit
            Left = 20
            Top = 24
            Width = 273
            Height = 21
            TabOrder = 0
          end
          object eFromAddress: TEdit
            Left = 20
            Top = 68
            Width = 273
            Height = 21
            TabOrder = 1
          end
          object eReplyName: TEdit
            Left = 308
            Top = 24
            Width = 273
            Height = 21
            TabOrder = 2
          end
          object eReplyAddress: TEdit
            Left = 308
            Top = 68
            Width = 273
            Height = 21
            TabOrder = 3
          end
          object eSubject: TEdit
            Left = 20
            Top = 112
            Width = 273
            Height = 21
            TabOrder = 4
          end
          object dtDate: TDateTimePicker
            Left = 308
            Top = 112
            Width = 101
            Height = 21
            CalAlignment = dtaLeft
            Date = 36264.335430671290000000
            Time = 36264.335430671290000000
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 5
          end
          object dtTime: TDateTimePicker
            Left = 420
            Top = 112
            Width = 101
            Height = 21
            CalAlignment = dtaLeft
            Date = 36264.335430671290000000
            Time = 36264.335430671290000000
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkTime
            ParseInput = False
            TabOrder = 6
          end
          object eToName: TEdit
            Left = 20
            Top = 156
            Width = 273
            Height = 21
            TabOrder = 7
          end
          object eToAddress: TEdit
            Left = 308
            Top = 156
            Width = 273
            Height = 21
            TabOrder = 8
          end
          object bAddTo: TButton
            Left = 20
            Top = 184
            Width = 75
            Height = 21
            Caption = 'Add To'
            TabOrder = 9
            OnClick = bAddToClick
          end
          object bAddCc: TButton
            Left = 100
            Top = 184
            Width = 75
            Height = 21
            Caption = 'Add Cc'
            TabOrder = 10
            OnClick = bAddCcClick
          end
          object bClearTo: TButton
            Left = 180
            Top = 184
            Width = 75
            Height = 21
            Caption = 'Clear To'#39's'
            TabOrder = 11
            OnClick = bClearToClick
          end
          object bClearCc: TButton
            Left = 260
            Top = 184
            Width = 75
            Height = 21
            Caption = 'Clear Cc'#39's'
            TabOrder = 12
            OnClick = bClearCcClick
          end
          object mToNames: TListBox
            Left = 20
            Top = 224
            Width = 273
            Height = 53
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ItemHeight = 14
            ParentFont = False
            TabOrder = 14
            OnClick = mToNamesClick
          end
          object mToAddresses: TListBox
            Left = 308
            Top = 224
            Width = 273
            Height = 53
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ItemHeight = 14
            ParentFont = False
            TabOrder = 15
            OnClick = mToAddressesClick
          end
          object mCcNames: TListBox
            Left = 20
            Top = 300
            Width = 273
            Height = 53
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ItemHeight = 14
            ParentFont = False
            TabOrder = 16
            OnClick = mCcNamesClick
          end
          object mCcAddresses: TListBox
            Left = 308
            Top = 300
            Width = 273
            Height = 53
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ItemHeight = 14
            ParentFont = False
            TabOrder = 17
            OnClick = mCcAddressesClick
          end
          object bSaveHeader1: TButton
            Left = 468
            Top = 184
            Width = 115
            Height = 21
            Caption = 'Save fields to header'
            TabOrder = 13
            OnClick = bSaveHeaderClick
          end
        end
        object TabSheet6: TTabSheet
          Caption = 'Body'
          ImageIndex = 2
          object Label6: TLabel
            Left = 20
            Top = 16
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'Files'
            FocusControl = lbFiles
          end
          object Label5: TLabel
            Left = 20
            Top = 252
            Width = 121
            Height = 13
            Anchors = [akLeft, akBottom]
            AutoSize = False
            Caption = 'Text/html'
          end
          object Label9: TLabel
            Left = 20
            Top = 144
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'Text/plain'
          end
          object mTextHtml: TMemo
            Left = 20
            Top = 268
            Width = 461
            Height = 85
            Anchors = [akLeft, akRight, akBottom]
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 7
          end
          object lbFiles: TListBox
            Left = 20
            Top = 32
            Width = 545
            Height = 69
            Anchors = [akLeft, akTop, akRight]
            ItemHeight = 13
            TabOrder = 0
          end
          object bSave: TButton
            Left = 19
            Top = 112
            Width = 75
            Height = 21
            Anchors = [akTop, akRight]
            Caption = 'Save'
            TabOrder = 1
            OnClick = bSaveClick
          end
          object bAttach: TButton
            Left = 187
            Top = 112
            Width = 75
            Height = 21
            Anchors = [akTop, akRight]
            Caption = 'Attach'
            TabOrder = 2
            OnClick = bAttachClick
          end
          object bHtml: TButton
            Left = 491
            Top = 268
            Width = 75
            Height = 25
            Anchors = [akRight, akBottom]
            Caption = 'Put in msg'
            TabOrder = 8
            OnClick = bHtmlClick
          end
          object mTextPlain: TMemo
            Left = 20
            Top = 160
            Width = 461
            Height = 85
            Anchors = [akLeft, akTop, akRight, akBottom]
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 4
          end
          object bPlain: TButton
            Left = 493
            Top = 160
            Width = 75
            Height = 25
            Anchors = [akTop, akRight]
            Caption = 'Put in msg'
            TabOrder = 5
            OnClick = bPlainClick
          end
          object bRemove: TButton
            Left = 103
            Top = 112
            Width = 75
            Height = 21
            Anchors = [akTop, akRight]
            Caption = 'Remove'
            TabOrder = 3
            OnClick = bRemoveClick
          end
          object bPlainRemove: TButton
            Left = 493
            Top = 184
            Width = 75
            Height = 25
            Anchors = [akTop, akRight]
            Caption = 'Remove'
            TabOrder = 6
            OnClick = bPlainRemoveClick
          end
          object bHtmlRemove: TButton
            Left = 491
            Top = 292
            Width = 75
            Height = 25
            Anchors = [akRight, akBottom]
            Caption = 'Remove'
            TabOrder = 9
            OnClick = bHtmlRemoveClick
          end
          object cbEmbedded: TCheckBox
            Left = 272
            Top = 114
            Width = 97
            Height = 17
            Caption = 'Embedded'
            TabOrder = 10
          end
        end
        object TabSheet4: TTabSheet
          Caption = 'Source'
          object Label19: TLabel
            Left = 20
            Top = 16
            Width = 121
            Height = 13
            AutoSize = False
            Caption = 'Header'
            FocusControl = eFromName
          end
          object Label20: TLabel
            Left = 453
            Top = 16
            Width = 121
            Height = 13
            Anchors = [akTop, akRight]
            AutoSize = False
            Caption = 'Label'
            FocusControl = eLabel
          end
          object Label21: TLabel
            Left = 453
            Top = 60
            Width = 121
            Height = 13
            Anchors = [akTop, akRight]
            AutoSize = False
            Caption = 'Value'
            FocusControl = eValue
          end
          object Label22: TLabel
            Left = 20
            Top = 148
            Width = 313
            Height = 13
            AutoSize = False
            Caption = 'Body source (may be truncated - rebuild body to see the changes)'
            FocusControl = eFromName
          end
          object mHeader: TMemo
            Left = 20
            Top = 32
            Width = 410
            Height = 105
            Anchors = [akLeft, akTop, akRight]
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 0
          end
          object eLabel: TEdit
            Left = 453
            Top = 32
            Width = 120
            Height = 21
            Anchors = [akTop, akRight]
            TabOrder = 1
          end
          object eValue: TEdit
            Left = 453
            Top = 76
            Width = 120
            Height = 21
            Anchors = [akTop, akRight]
            TabOrder = 2
          end
          object bLabel: TButton
            Left = 453
            Top = 112
            Width = 57
            Height = 25
            Anchors = [akTop, akRight]
            Caption = 'Set'
            TabOrder = 3
            OnClick = bLabelClick
          end
          object bDelLabel: TButton
            Left = 520
            Top = 112
            Width = 54
            Height = 25
            Anchors = [akTop, akRight]
            Caption = 'Delete'
            TabOrder = 4
            OnClick = bDelLabelClick
          end
          object mBody: TMemo
            Left = 20
            Top = 164
            Width = 410
            Height = 185
            Anchors = [akLeft, akTop, akRight, akBottom]
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 5
          end
          object bRebuild: TButton
            Left = 452
            Top = 212
            Width = 121
            Height = 25
            Hint = 'Rebuild the body source'
            Anchors = [akRight, akBottom]
            Caption = 'Rebuild body'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 8
            OnClick = bRebuildClick
          end
          object bReset: TButton
            Left = 452
            Top = 240
            Width = 121
            Height = 25
            Anchors = [akRight, akBottom]
            Caption = 'Reset message'
            TabOrder = 9
            OnClick = bResetClick
          end
          object bRefresh: TButton
            Left = 452
            Top = 268
            Width = 121
            Height = 25
            Anchors = [akRight, akBottom]
            Caption = 'Refresh screen'
            TabOrder = 10
            OnClick = bRefreshClick
          end
          object bSaveMsg: TButton
            Left = 452
            Top = 296
            Width = 121
            Height = 25
            Anchors = [akRight, akBottom]
            Caption = 'Save to file'
            TabOrder = 11
            OnClick = bSaveMsgClick
          end
          object bLoadMsg: TButton
            Left = 452
            Top = 324
            Width = 121
            Height = 25
            Anchors = [akRight, akBottom]
            Caption = 'Load from file'
            TabOrder = 12
            OnClick = bLoadMsgClick
          end
          object bNormalize: TButton
            Left = 452
            Top = 184
            Width = 121
            Height = 25
            Hint = 'Reformat message in Mail2000 format'
            Anchors = [akLeft, akTop, akRight, akBottom]
            Caption = 'Normalize'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 7
            OnClick = bNormalizeClick
          end
          object bFindParts: TButton
            Left = 452
            Top = 156
            Width = 121
            Height = 25
            Hint = 'Identify texts and attachments'
            Anchors = [akLeft, akTop, akRight, akBottom]
            Caption = 'Find Parts'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 6
            OnClick = bFindPartsClick
          end
        end
        object TabSheet7: TTabSheet
          Caption = 'Hops'
          ImageIndex = 3
          object mHops: TMemo
            Left = 0
            Top = 0
            Width = 602
            Height = 373
            Align = alClient
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'SMTP'
      ImageIndex = 2
      object Label23: TLabel
        Left = 20
        Top = 24
        Width = 121
        Height = 13
        AutoSize = False
        Caption = 'Host'
        FocusControl = eSmtpHost
      end
      object Label24: TLabel
        Left = 300
        Top = 24
        Width = 121
        Height = 13
        AutoSize = False
        Caption = 'Last response'
      end
      object Label27: TLabel
        Left = 152
        Top = 24
        Width = 50
        Height = 13
        AutoSize = False
        Caption = 'Port'
        FocusControl = eSmtpPort
      end
      object lSmtpStatus: TLabel
        Left = 20
        Top = 312
        Width = 157
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Disconnected'
      end
      object eSmtpHost: TEdit
        Left = 20
        Top = 40
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object bSmtpConnect: TButton
        Left = 20
        Top = 84
        Width = 81
        Height = 25
        Caption = 'Connect'
        TabOrder = 2
        OnClick = bSmtpConnectClick
      end
      object bSmtpDisconnect: TButton
        Left = 20
        Top = 148
        Width = 81
        Height = 25
        Caption = 'Disconnect'
        Enabled = False
        TabOrder = 4
        OnClick = bSmtpDisconnectClick
      end
      object bSend: TButton
        Left = 20
        Top = 116
        Width = 81
        Height = 25
        Caption = 'Send'
        Enabled = False
        TabOrder = 3
        OnClick = bSendClick
      end
      object ProgressBar3: TProgressBar
        Left = 20
        Top = 330
        Width = 150
        Height = 16
        Anchors = [akLeft, akBottom]
        Min = 0
        Max = 100
        TabOrder = 5
      end
      object eSmtpPort: TEdit
        Left = 152
        Top = 40
        Width = 50
        Height = 21
        TabOrder = 1
        Text = '25'
      end
      object mSmtpResponse: TMemo
        Left = 300
        Top = 40
        Width = 281
        Height = 325
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 6
      end
      object bSmtpAbort: TButton
        Left = 20
        Top = 180
        Width = 81
        Height = 25
        Caption = 'Abort'
        TabOrder = 7
        OnClick = bSmtpAbortClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'eml'
    Filter = 'All files (*.*)|*.*|Mail (*.eml)|*.eml'
    Left = 480
  end
  object POP: TPOP2000
    Port = 8110
    MailMessage = Msg
    TimeOut = 60
    OnProgress = POPProgress
    DeleteOnRetrieve = False
    Left = 516
  end
  object SMTP: TSMTP2000
    Port = 25
    TimeOut = 60
    MailMessage = Msg
    PacketSize = 102400
    OnProgress = SMTPProgress
    Left = 548
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'eml'
    Filter = 'All files (*.*)|*.*|Mail (*.eml)|*.eml'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofShareAware, ofEnableSizing]
    Left = 448
  end
  object Msg: TMailMessage2000
    Charset = 'iso-8859-1'
    TextEncoding = etQuotedPrintable
    OnProgress = MsgProgress
    Left = 580
  end
end