object FormSendMail: TFormSendMail Left = 286 Top = 120 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsDialog Caption = 'Sending mail...' ClientHeight = 131 ClientWidth = 303 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 92 Top = 22 Width = 112 Height = 13 Caption = 'Sending message...' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 109 Top = 44 Width = 78 Height = 13 Caption = 'Please wait...' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LedTx: TALed Left = 10 Top = 102 Width = 16 Height = 16 FalseColor = clRed Blink = False end object LedRx: TALed Left = 38 Top = 102 Width = 16 Height = 16 FalseColor = clRed end object Info: TLabel Left = 66 Top = 104 Width = 18 Height = 13 Caption = 'Info' end object ButCancel: TButton Left = 110 Top = 66 Width = 75 Height = 25 Caption = 'Cancel' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = ButCancelClick end object Sockets1: TSockets Left = 240 Top = 18 Width = 32 Height = 32 MaximumReceiveLength = 8192 OnErrorOccurred = Sockets1ErrorOccurred end object ButStart: TButton Left = 6 Top = 10 Width = 75 Height = 25 Caption = 'Start' TabOrder = 2 Visible = False OnClick = ButStartClick end end