[4kusNick]

Форма для модуля:

Код:

object frmMain: TfrmMain
Left = 243
Top = 129
Width = 448
Height = 398
Caption = 'INDY - SMTP Relay Demo'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
   Left = 7
   Top = 8
   Width = 311
   Height = 26
   Caption = 
     'Demonstrates sending mail directly to a users mailbox on a remot' +
     'e mailserver - this negates the need for a local SMTP server'
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clGray
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   ParentFont = False
   WordWrap = True
end
object Label2: TLabel
   Left = 8
   Top = 64
   Width = 111
   Height = 13
   Caption = 'DNS server IP address:'
end
object Label3: TLabel
   Left = 8
   Top = 123
   Width = 104
   Height = 13
   Caption = 'Sender email address:'
end
object Label4: TLabel
   Left = 288
   Top = 64
   Width = 49
   Height = 13
   Caption = 'Required !'
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clGray
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   ParentFont = False
end
object Label5: TLabel
   Left = 8
   Top = 150
   Width = 115
   Height = 13
   Caption = 'Recipient email address:'
end
object Label6: TLabel
   Left = 8
   Top = 177
   Width = 72
   Height = 13
   Caption = 'Subject of mail:'
end
object Label7: TLabel
   Left = 8
   Top = 204
   Width = 66
   Height = 13
   Caption = 'Message text:'
end
object Label8: TLabel
   Left = 8
   Top = 91
   Width = 95
   Height = 13
   Caption = 'DNS server timeout:'
end
object Label9: TLabel
   Left = 336
   Top = 124
   Width = 49
   Height = 13
   Caption = 'Required !'
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clGray
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   ParentFont = False
end
object Label10: TLabel
   Left = 336
   Top = 148
   Width = 49
   Height = 13
   Caption = 'Required !'
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clGray
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   ParentFont = False
end
object sbMain: TStatusBar
   Left = 0
   Top = 352
   Width = 440
   Height = 19
   Panels = <>
end
object edtDNS: TEdit
   Left = 128
   Top = 60
   Width = 153
   Height = 21
   TabOrder = 1
end

object edtSender: TEdit
   Left = 128
   Top = 119
   Width = 205
   Height = 21
   TabOrder = 2
end
object edtRecipient: TEdit
   Left = 128
   Top = 146
   Width = 205
   Height = 21
   TabOrder = 3
end
object edtSubject: TEdit
   Left = 128
   Top = 173
   Width = 205
   Height = 21
   TabOrder = 4
end
object mmoMessageText: TMemo
   Left = 128
   Top = 200
   Width = 205
   Height = 113
   TabOrder = 5
end
object btnSendMail: TButton
   Left = 258
   Top = 321
   Width = 75
   Height = 25
   Caption = 'Send mail !'
   TabOrder = 6
   OnClick = btnSendMailClick
end
object btnExit: TButton
   Left = 356
   Top = 8
   Width = 75
   Height = 25
   Caption = 'E&xit'
   TabOrder = 7
   OnClick = btnExitClick
end
object edtTimeOut: TEdit
   Left = 128
   Top = 87
   Width = 61
   Height = 21
   TabOrder = 8
   Text = '5000'
end
object IdMessage: TIdMessage
   AttachmentEncoding = 'MIME'
   BccList = <>
   CCList = <>
   Encoding = meMIME
   Recipients = <>
   ReplyTo = <>
   Left = 12
   Top = 236
end
object IdDNSResolver: TIdDNSResolver
   Port = 53
   ReceiveTimeout = 60
   QueryRecords = []
   Left = 12
   Top = 268
end
object IdSMTP: TIdSMTP
   MaxLineAction = maException
   ReadTimeout = 0
   Port = 25
   AuthenticationType = atNone
   Left = 12
   Top = 204
end
object IdAntiFreeze: TIdAntiFreeze
   Left = 12
   Top = 300
end
end