object SslSmtpTestForm: TSslSmtpTestForm
  Left = 456
  Top = 161
  Caption = 'SMTP SSL Test - https://www.overbyte.be - 24 Sept 2024'
  ClientHeight = 705
  ClientWidth = 722
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  TextHeight = 13
  object MsgMemo: TMemo
    Left = 0
    Top = 311
    Width = 722
    Height = 154
    Hint = 'Enter the message text in this memo'
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'MsgMemo')
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssBoth
    ShowHint = True
    TabOrder = 0
  end
  object DisplayMemo: TMemo
    Left = 0
    Top = 548
    Width = 722
    Height = 157
    Hint = 'This memo shows info messages'
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'DisplayMemo')
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ScrollBars = ssBoth
    ShowHint = True
    TabOrder = 2
  end
  object ToolsPanel: TPanel
    Left = 0
    Top = 0
    Width = 722
    Height = 311
    Align = alTop
    TabOrder = 3
    DesignSize = (
      722
      311)
    object Label1: TLabel
      Left = 22
      Top = 11
      Width = 55
      Height = 13
      Caption = 'SMTP Host'
    end
    object Label2: TLabel
      Left = 54
      Top = 36
      Width = 26
      Height = 13
      Caption = 'From'
    end
    object Label3: TLabel
      Left = 252
      Top = 36
      Width = 12
      Height = 13
      Caption = 'To'
    end
    object Subject: TLabel
      Left = 41
      Top = 82
      Width = 38
      Height = 13
      Caption = 'Subject'
    end
    object Label4: TLabel
      Left = 246
      Top = 11
      Width = 21
      Height = 13
      Caption = 'Port'
    end
    object Label5: TLabel
      Left = 4
      Top = 288
      Width = 70
      Height = 13
      Anchors = [akLeft, akBottom]
      Caption = 'Message text:'
    end
    object Label8: TLabel
      Left = 244
      Top = 84
      Width = 23
      Height = 13
      Caption = 'Sign'
    end
    object Label9: TLabel
      Left = 29
      Top = 108
      Width = 51
      Height = 13
      Caption = 'Username'
    end
    object Label10: TLabel
      Left = 242
      Top = 108
      Width = 22
      Height = 13
      Caption = 'Pass'
    end
    object Label11: TLabel
      Left = 9
      Top = 132
      Width = 77
      Height = 13
      Caption = 'Authentication'
    end
    object Label12: TLabel
      Left = 64
      Top = 60
      Width = 12
      Height = 13
      Caption = 'Cc'
    end
    object Label13: TLabel
      Left = 246
      Top = 60
      Width = 16
      Height = 13
      Caption = 'Bcc'
    end
    object Label14: TLabel
      Left = 234
      Top = 132
      Width = 36
      Height = 13
      Caption = 'Priority'
    end
    object Label15: TLabel
      Left = 30
      Top = 156
      Width = 44
      Height = 13
      Caption = 'SSL-Type'
    end
    object Label16: TLabel
      Left = 228
      Top = 204
      Width = 38
      Height = 13
      Caption = 'Key File'
    end
    object Label17: TLabel
      Left = 5
      Top = 204
      Width = 75
      Height = 13
      Caption = 'Client Cert File'
    end
    object Label18: TLabel
      Left = 44
      Top = 180
      Width = 35
      Height = 13
      Caption = 'CA File'
    end
    object Label19: TLabel
      Left = 226
      Top = 180
      Width = 40
      Height = 13
      Caption = 'CA Path'
    end
    object Label21: TLabel
      Left = 398
      Top = 204
      Width = 49
      Height = 13
      Caption = 'PassPrase'
    end
    object DefEnc: TLabel
      Left = 12
      Top = 239
      Width = 61
      Height = 46
      Caption = 'Default (Transfer) Encoding'
      WordWrap = True
    end
    object Label20: TLabel
      Left = 226
      Top = 270
      Width = 141
      Height = 13
      Caption = 'Wrap text at (bytes per line)'
    end
    object Label22: TLabel
      Left = 487
      Top = 128
      Width = 126
      Height = 13
      Caption = 'Microsoft User Authority'
    end
    object HostEdit: TEdit
      Left = 80
      Top = 8
      Width = 140
      Height = 21
      Hint = 'Mail server hostname or IP address'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'HostEdit'
    end
    object FromEdit: TEdit
      Left = 80
      Top = 32
      Width = 140
      Height = 21
      Hint = 'Author'#39's EMail'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = 'FromEdit'
    end
    object ToEdit: TEdit
      Left = 270
      Top = 32
      Width = 121
      Height = 21
      Hint = 'Destinators, delimited by semicolons'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Text = 'ToEdit'
    end
    object SubjectEdit: TEdit
      Left = 81
      Top = 79
      Width = 140
      Height = 21
      Hint = 'Message subject'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      Text = 'SubjectEdit'
    end
    object SignOnEdit: TEdit
      Left = 270
      Top = 80
      Width = 121
      Height = 21
      Hint = 'Signon message for the HELO/EHLO command'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      Text = 'SignOnEdit'
    end
    object PortEdit: TEdit
      Left = 270
      Top = 8
      Width = 121
      Height = 21
      Hint = 'Mail server port (should be smtp)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = 'PortEdit'
    end
    object ClearDisplayButton: TButton
      Left = 487
      Top = 88
      Width = 73
      Height = 17
      Hint = 'Clear info message memo'
      Caption = 'Clear &Info'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 33
      OnClick = ClearDisplayButtonClick
    end
    object ConnectButton: TButton
      Left = 407
      Top = 8
      Width = 73
      Height = 17
      Hint = 'Connect to the mail server'
      Caption = 'Connect'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 21
      OnClick = ConnectButtonClick
    end
    object HeloButton: TButton
      Left = 407
      Top = 28
      Width = 73
      Height = 17
      Hint = 'Send the signon message'
      Caption = 'Helo'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 22
      OnClick = HeloButtonClick
    end
    object MailFromButton: TButton
      Left = 407
      Top = 108
      Width = 73
      Height = 17
      Hint = 'Send the mail originator'
      Caption = 'MailFrom'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 26
      OnClick = MailFromButtonClick
    end
    object RcptToButton: TButton
      Left = 407
      Top = 128
      Width = 73
      Height = 17
      Hint = 'Send the mail recipents'
      Caption = 'RcptTo'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 27
      OnClick = RcptToButtonClick
    end
    object DataButton: TButton
      Left = 407
      Top = 148
      Width = 73
      Height = 17
      Hint = 'Send mail text and attached files'
      Caption = 'Data'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 28
      OnClick = DataButtonClick
    end
    object AbortButton: TButton
      Left = 487
      Top = 68
      Width = 73
      Height = 17
      Hint = 'Abort current operation and close'
      Caption = 'Abort'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 32
      OnClick = AbortButtonClick
    end
    object QuitButton: TButton
      Left = 487
      Top = 48
      Width = 73
      Height = 17
      Hint = 'Quit mail server'
      Caption = 'Quit'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 31
      OnClick = QuitButtonClick
    end
    object MailButton: TButton
      Left = 487
      Top = 28
      Width = 73
      Height = 17
      Hint = 'MailFrom, RcptTo and Data combined'
      Caption = 'Mail'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 30
      OnClick = MailButtonClick
    end
    object OpenButton: TButton
      Left = 487
      Top = 8
      Width = 73
      Height = 17
      Hint = 'Connect and Helo combined'
      Caption = 'Open'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 29
      OnClick = OpenButtonClick
    end
    object UsernameEdit: TEdit
      Left = 80
      Top = 104
      Width = 140
      Height = 21
      Hint = 'SMTP user name/account'
      TabOrder = 8
      Text = 'UsernameEdit'
    end
    object PasswordEdit: TEdit
      Left = 270
      Top = 104
      Width = 121
      Height = 21
      Hint = 'SMTP password'
      TabOrder = 9
      Text = 'PasswordEdit'
    end
    object AuthComboBox: TComboBox
      Left = 83
      Top = 127
      Width = 121
      Height = 21
      Hint = 'Select authentication type'
      Style = csDropDownList
      TabOrder = 10
      OnChange = AuthComboBoxChange
      Items.Strings = (
        'None'
        'Plain'
        'Login'
        'CramMD5'
        'CramSHA1'
        'NTLM'
        'AutoSelect'
        'XOAuth2'
        'OAuthBearer')
    end
    object EhloButton: TButton
      Left = 407
      Top = 48
      Width = 73
      Height = 17
      Hint = 'Send the EHLO command'
      Caption = 'Ehlo'
      TabOrder = 23
      OnClick = EhloButtonClick
    end
    object AuthButton: TButton
      Left = 407
      Top = 88
      Width = 73
      Height = 17
      Hint = 'Send the AUTH command'
      Caption = 'Auth'
      TabOrder = 25
      OnClick = AuthButtonClick
    end
    object CcEdit: TEdit
      Left = 80
      Top = 56
      Width = 140
      Height = 21
      Hint = 'Carbon copies, coma separated list allowed'
      TabOrder = 4
      Text = 'CcEdit'
    end
    object BccEdit: TEdit
      Left = 270
      Top = 56
      Width = 121
      Height = 21
      Hint = 'Blind carbon copies, coma separated list allowed'
      TabOrder = 5
      Text = 'BccEdit'
    end
    object AllInOneButton: TButton
      Left = 487
      Top = 108
      Width = 73
      Height = 17
      Hint = 
        'Connect, Helo, MailFrom, RcptTo, Data and Quit all chained in a ' +
        'single action.'
      Caption = 'All In One'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 34
      OnClick = AllInOneButtonClick
    end
    object PriorityComboBox: TComboBox
      Left = 270
      Top = 128
      Width = 121
      Height = 21
      Hint = 'Select e-mail priority'
      Style = csDropDownList
      TabOrder = 11
      Items.Strings = (
        'Not specified'
        'Highest'
        'High'
        'Normal'
        'Low'
        'Lowest')
    end
    object TlsButton: TButton
      Left = 407
      Top = 68
      Width = 73
      Height = 17
      Hint = 'Start SMTP over TLS negotiation'
      Caption = 'StartTls'
      TabOrder = 24
      OnClick = TlsButtonClick
    end
    object VerifyPeerCheckBox: TCheckBox
      Left = 270
      Top = 154
      Width = 115
      Height = 17
      Hint = 'Verify peer'
      Caption = 'SslVerifyPeer'
      TabOrder = 13
    end
    object SmtpSslModeCombobox: TComboBox
      Left = 80
      Top = 152
      Width = 121
      Height = 21
      Hint = 'Select the SMTP SSL mode '
      Style = csDropDownList
      TabOrder = 12
      Items.Strings = (
        'None'
        'Implicit (TLS Connection)'
        'Explicit (STARTTLS)')
    end
    object KeyEdit: TEdit
      Left = 270
      Top = 200
      Width = 121
      Height = 21
      Hint = 
        'Key file name, required only if the server requests a client cer' +
        'tificate'
      TabOrder = 17
      Text = 'KeyEdit'
    end
    object CertEdit: TEdit
      Left = 80
      Top = 200
      Width = 121
      Height = 21
      Hint = 
        'Certificate file name, required only if the server requests a cl' +
        'ient certificate'
      TabOrder = 16
      Text = 'CertEdit'
    end
    object CaFileEdit: TEdit
      Left = 80
      Top = 176
      Width = 121
      Height = 21
      Hint = 
        'CA file name, this is a file containing one or multiple, trusted' +
        ' CA certificates'
      Enabled = False
      TabOrder = 14
      Text = 'CaFileEdit'
    end
    object CaPathEdit: TEdit
      Left = 270
      Top = 176
      Width = 121
      Height = 21
      Hint = 'Path to a folder containing CA pem files.'
      Enabled = False
      TabOrder = 15
      Text = 'CaPathEdit'
    end
    object PassPhraseEdit: TEdit
      Left = 454
      Top = 200
      Width = 107
      Height = 21
      Hint = 
        'Key Password, , required only if the server requests a client ce' +
        'rtificate'
      TabOrder = 20
      Text = 'PassPhraseEdit'
    end
    object IcsCharsetComboBox1: TIcsCharsetComboBox
      Left = 80
      Top = 236
      Width = 171
      Height = 21
      Hint = 
        'List of common charsets. Aliases are supported as well, just typ' +
        'e for example, '#13#10'"latin1" and press button Test Charset '
      CharSet = 'utf-7'
      DropDownCount = 32
      TabOrder = 35
    end
    object ConvertToCharsetCheckBox: TCheckBox
      Left = 543
      Top = 255
      Width = 168
      Height = 19
      Hint = 
        'Ignored by Unicode compilers. With ANSI compilers usually OFF ex' +
        'cept for '#13#10'UTF-8 and UTF-7. '
      Caption = 'ConvertToCharset (ANSI only) '
      Checked = True
      State = cbChecked
      TabOrder = 42
    end
    object Allow8BitCheckBox: TCheckBox
      Left = 447
      Top = 232
      Width = 90
      Height = 17
      Hint = 
        'Should be OFF by default, if ON ensures backwards compatibility ' +
        'as well.'
      Caption = 'Allow8BitChars'
      TabOrder = 39
    end
    object FoldHeadersCheckBox: TCheckBox
      Left = 447
      Top = 255
      Width = 87
      Height = 17
      Hint = 'Fold header lines? Should be ON by default '
      Caption = 'FoldHeaders'
      Checked = True
      State = cbChecked
      TabOrder = 40
    end
    object DefEncodingComboBox: TComboBox
      Left = 80
      Top = 265
      Width = 125
      Height = 21
      Hint = 
        'Default Tranfer-Encoding. Value actually used may change if set ' +
        'to 7bit or 8bit'#13#10'and Allow8BitChars is disabled. If set to QP or' +
        ' Base64 this encoding is enforced.'
      Style = csDropDownList
      TabOrder = 36
      Items.Strings = (
        'smtpEnc7bit'
        'smtpEnc8bit'
        'smtpEncQuotedPrintable'
        'smtpEncBase64')
    end
    object WrapTextCheckBox: TCheckBox
      Left = 543
      Top = 232
      Width = 153
      Height = 18
      Hint = 'Wrap MailMessage text'
      Caption = 'WrapMailMessageText'
      TabOrder = 41
    end
    object WrapAtEdit: TEdit
      Left = 374
      Top = 267
      Width = 55
      Height = 21
      Hint = 
        'Attempts to wrap lines of MailMessage text not encoded QP or B64' +
        ' at this'#13#10'value, lines may get longer though '
      TabOrder = 38
      Text = 'WrapAtEdit'
    end
    object UseMailMessageCheckBox: TCheckBox
      Left = 270
      Top = 227
      Width = 171
      Height = 39
      Hint = 'Use property MailMessage rather than OnGetData event'
      Caption = 'Use property MailMessage (required for some props below)'
      TabOrder = 37
      WordWrap = True
    end
    object OAuth2ExtBrow: TCheckBox
      Left = 487
      Top = 173
      Width = 163
      Height = 17
      Hint = 'OAuth2 External Browser'
      Caption = 'OAuth2 External Browser'
      TabOrder = 19
    end
    object OAuth2UserAuth: TComboBox
      Left = 487
      Top = 146
      Width = 200
      Height = 21
      TabOrder = 18
      Text = 'consumers'
      Items.Strings = (
        'consumers'
        'common'
        'organizations'
        '<tenant>')
    end
  end
  object AttachPanel: TPanel
    Left = 0
    Top = 465
    Width = 722
    Height = 17
    Align = alTop
    TabOrder = 4
    object Label6: TLabel
      Left = 4
      Top = 2
      Width = 73
      Height = 13
      Caption = 'Attached files:'
    end
  end
  object FileAttachMemo: TMemo
    Left = 0
    Top = 482
    Width = 722
    Height = 49
    Hint = 'Enter the attached file path, one per line'
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'FileAttachMemo')
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 1
  end
  object InfoPanel: TPanel
    Left = 0
    Top = 531
    Width = 722
    Height = 17
    Align = alTop
    TabOrder = 5
    object Label7: TLabel
      Left = 4
      Top = 2
      Width = 76
      Height = 13
      Caption = 'Info messages:'
    end
  end
  object SslSmtpClient: TSslSmtpCli
    Tag = 0
    ShareMode = smtpShareDenyWrite
    LocalAddr = '0.0.0.0'
    LocalAddr6 = '::'
    Port = 'smtp'
    AuthType = smtpAuthNone
    ConfirmReceipt = False
    HdrPriority = smtpPriorityNone
    CharSet = 'iso-8859-1'
    ConvertToCharset = True
    WrapMsgMaxLineLen = 76
    SendMode = smtpToSocket
    DefaultEncoding = smtpEnc7bit
    Allow8bitChars = True
    FoldHeaders = False
    WrapMessageText = False
    ContentType = smtpPlainText
    OwnHeaders = False
    OnDisplay = SmtpClientDisplay
    OnGetData = SslSmtpClientGetData
    OnHeaderLine = SslSmtpClientHeaderLine
    OnRequestDone = SslSmtpClientRequestDone
    XMailer = 'ICS SMTP Component V%VER%'
    ProxyType = smtpNoProxy
    ProxyHttpAuthType = htatDetect
    OnBeforeFileOpen = SslSmtpClientBeforeFileOpen
    SocketFamily = sfIPv4
    SocketErrs = wsErrTech
    OnGetNewToken = SslSmtpClientGetNewToken
    Timeout = 15
    SslType = smtpTlsNone
    SslContext = SslContext1
    Left = 588
    Top = 17
  end
  object SslContext1: TSslContext
    SslDHParamLines.Strings = (
      '-----BEGIN DH PARAMETERS-----'
      'MIICCAKCAgEA45KZVdTCptcakXZb7jJvSuuOdMlUbl1tpncHbQcYbFhRbcFmmefp'
      'bOmZsTowlWHQpoYRRTe6NEvYox8J+44i/X5cJkMTlIgMb0ZBty7t76U9f6qAId/O'
      '6elE0gnk2ThER9nmBcUA0ZKgSXn0XCBu6j5lzZ0FS+bx9OVNhlzvIFBclRPXbI58'
      '71dRoTjOjfO1SIzV69T3FoKJcqur58l8b+no/TOQzekMzz4XJTRDefqvePhj7ULP'
      'Z/Zg7vtEh11h8gHR0/rlF378S05nRMq5hbbJeLxIbj9kxQunETSbwwy9qx0SyQgH'
      'g+90+iUCrKCJ9Fb7WKqtQLkQuzJIkkXkXUyuxUuyBOeeP9XBUAOQu+eYnRPYSmTH'
      'GkhyRbIRTPCDiBWDFOskdyGYYDrxiK7LYJQanqHlEFtjDv9t1XmyzDm0k7W9oP/J'
      'p0ox1+WIpFgkfv6nvihqCPHtAP5wevqXNIQADhDk5EyrR3XWRFaySeKcmREM9tbc'
      'bOvmsEp5MWCC81ZsnaPAcVpO66aOPojNiYQZUbmm70fJsr8BDzXGpcQ44+wmL4Ds'
      'k3+ldVWAXEXs9s1vfl4nLNXefYl74cV8E5Mtki9hCjUrUQ4dzbmNA5fg1CyQM/v7'
      'JuP6PBYFK7baFDjG1F5YJiO0uHo8sQx+SWdJnGsq8piI3w0ON9JhUvMCAQI='
      '-----END DH PARAMETERS-----')
    SslVerifyPeer = False
    SslVerifyDepth = 9
    SslVerifyFlags = []
    SslVerifyFlagsValue = 0
    SslCheckHostFlags = []
    SslCheckHostFlagsValue = 0
    SslSecLevel = sslSecLevel112bits
    SslOptions = [sslOpt_NO_SSLv2]
    SslOptions2 = []
    SslVerifyPeerModes = [SslVerifyMode_PEER]
    SslVerifyPeerModesValue = 1
    SslSessionCacheModes = [sslSESS_CACHE_CLIENT]
    SslCipherList = 'ALL'
    SslCipherList13 = 
      'TLS_AES_256_GCM_SHA384:TLS_CHACHA20_POLY1305_SHA256:TLS_AES_128_' +
      'GCM_SHA256'
    SslVersionMethod = sslTLS_V1_2_CLIENT
    SslMinVersion = sslVerTLS1_2
    SslMaxVersion = sslVerMax
    SslECDHMethod = sslECDHAuto
    SslCryptoGroups = 'P-256:X25519:P-384:P-512'
    SslCliSecurity = sslCliSecIgnore
    SslOcspStatus = False
    UseSharedCAStore = False
    SslSessionTimeout = 300000
    SslSessionCacheSize = 20480
    AutoEnableBuiltinEngines = False
    Left = 659
    Top = 15
  end
  object IcsRestEmail1: TIcsRestEmail
    RestEmailType = RestEmailGoogle
    ForceLogin = False
    LoginTimeout = 30
    HdrFieldList = 'to,from,subject,date'
    DebugLevel = DebugConn
    OAAuthType = OAuthTypeWeb
    MsUserAuth = 'consumers'
    OnEmailProg = IcsRestEmail1EmailProg
    OnEmailNewToken = IcsRestEmail1EmailNewToken
    OnOAEmbed = IcsRestEmail1OAEmbed
    Left = 130
    Top = 330
  end
  object OAuthBrowser1: TOAuthBrowser
    Left = 230
    Top = 330
  end
end