object FormEmail: TFormEmail Left = 276 Top = 212 BorderStyle = bsNone Caption = 'FormEmail' ClientHeight = 249 ClientWidth = 700 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OnCreate = FormCreate OnHide = FormHide OnPaint = FormPaint OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object MemoMessage: TMemo Left = 0 Top = 57 Width = 700 Height = 192 Align = alClient Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True ScrollBars = ssBoth TabOrder = 0 WantTabs = True end object Notebook: TNotebook Left = 0 Top = 0 Width = 700 Height = 57 Align = alTop TabOrder = 1 OnPageChanged = NotebookPageChanged object TPage Left = 0 Top = 0 Caption = 'ServerInfo' object Label1: TLabel Left = 9 Top = 9 Width = 40 Height = 16 Alignment = taRightJustify Caption = 'Server' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 20 Top = 33 Width = 29 Height = 16 Alignment = taRightJustify Caption = 'User' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 264 Top = 33 Width = 65 Height = 16 Alignment = taRightJustify Caption = 'Password' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object TiledBitmap1: TTiledBitmap Left = 0 Top = 0 Width = 700 Height = 57 Align = alClient end object BCancel1: TSpeedButton Tag = 4 Left = 635 Top = 8 Width = 57 Height = 41 Caption = 'Cancel' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BCancel1Click end object BNew: TSpeedButton Tag = 4 Left = 571 Top = 8 Width = 57 Height = 41 Caption = 'New' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BNewClick end object BGet: TSpeedButton Tag = 4 Left = 507 Top = 8 Width = 57 Height = 41 Caption = 'Get Mail' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BGetClick end object EServer: TEdit Left = 56 Top = 4 Width = 441 Height = 24 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 Text = 'mail.shift-f7.com' end object EUser: TEdit Left = 56 Top = 28 Width = 153 Height = 24 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Text = 'sf7k' end object EPassword: TEdit Left = 336 Top = 28 Width = 161 Height = 24 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False PasswordChar = '*' TabOrder = 2 Text = 'k01:YHNU' end end object TPage Left = 0 Top = 0 Caption = 'GetMail' object TiledBitmap2: TTiledBitmap Left = 497 Top = 0 Width = 203 Height = 57 Align = alClient end object BReply: TSpeedButton Tag = 4 Left = 507 Top = 8 Width = 57 Height = 41 Caption = 'Reply' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BReplyClick end object BDelete: TSpeedButton Tag = 4 Left = 571 Top = 8 Width = 57 Height = 41 Caption = 'Delete' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BDeleteClick end object BCancel2: TSpeedButton Tag = 4 Left = 635 Top = 8 Width = 57 Height = 41 Caption = 'Cancel' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BCancel2Click end object ListMessages: TListBox Left = 0 Top = 0 Width = 497 Height = 57 Align = alLeft Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 0 OnClick = ListMessagesClick end end object TPage Left = 0 Top = 0 Caption = 'SendMail' object Label7: TLabel Left = 232 Top = 9 Width = 40 Height = 16 Caption = 'cc Self' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 4 Top = 33 Width = 45 Height = 16 Alignment = taRightJustify Caption = 'Subject' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 18 Top = 9 Width = 31 Height = 16 Alignment = taRightJustify Caption = 'From' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 320 Top = 9 Width = 17 Height = 16 Alignment = taRightJustify Caption = 'To' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object TiledBitmap3: TTiledBitmap Left = 0 Top = 0 Width = 700 Height = 57 Align = alClient end object BSend: TSpeedButton Tag = 4 Left = 571 Top = 8 Width = 57 Height = 41 Caption = 'Send' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BSendClick end object BCancel3: TSpeedButton Tag = 4 Left = 635 Top = 8 Width = 57 Height = 41 Caption = 'Cancel' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BCancel3Click end object ESubject: TEdit Left = 56 Top = 28 Width = 441 Height = 24 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 Text = 'mail.shift-f7.com' end object EFrom: TEdit Left = 56 Top = 4 Width = 153 Height = 24 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 Text = 'sf7k' end object ETo: TEdit Left = 344 Top = 4 Width = 153 Height = 24 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 Text = 'k01:YHNU' end object CBccSelf: TCheckBox Left = 216 Top = 11 Width = 13 Height = 13 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False State = cbChecked TabOrder = 1 end end end object POP: TmsRemotePOP WinsockLoaded = True DefaultPort = 110 OnOpen = Open OnClosed = Closed OnUserMessageSave = POPUserMessageSave Left = 72 Top = 96 end object Msg: TmsMessage ContentType = 'text/plain' ReturnReceipt = False Left = 112 Top = 96 end object SMTP: TmsSMTP WinsockLoaded = True DefaultPort = 25 OnOpen = Open OnClosed = Closed MailMessage = Msg Left = 72 Top = 136 end object Timer: TTimer Enabled = False Interval = 1 OnTimer = TimerTimer Left = 72 Top = 176 end end