object RegistrationForm: TRegistrationForm Left = 95 Top = 50 HelpContext = 20 ActiveControl = ToEdit BorderStyle = bsDialog Caption = 'Registration Form' ClientHeight = 278 ClientWidth = 489 Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object ToolBar: TPanel Left = 0 Top = 0 Width = 489 Height = 41 Align = alTop BevelOuter = bvNone BorderWidth = 1 TabOrder = 0 object SendButton: TSpeedButton Left = 10 Top = 5 Width = 31 Height = 31 Hint = 'Send' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000 000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF 9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000 0000777777777777777733333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SendButtonClick end object Bevel1: TBevel Left = 0 Top = 39 Width = 565 Height = 7 Shape = bsTopLine end object Bevel2: TBevel Left = 0 Top = 0 Width = 565 Height = 6 Shape = bsTopLine end end object SendInfoPanel: TPanel Left = 0 Top = 41 Width = 489 Height = 60 Align = alTop BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 17 Top = 9 Width = 33 Height = 14 Alignment = taRightJustify Caption = 'From : ' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 66 Top = 8 Width = 31 Height = 14 Alignment = taRightJustify Caption = 'Name' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 68 Top = 33 Width = 32 Height = 14 Alignment = taRightJustify Caption = 'E-Mail' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object ToEdit: TEdit Left = 113 Top = 5 Width = 283 Height = 22 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 end object Edit1: TEdit Left = 113 Top = 29 Width = 283 Height = 22 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 end end object Panel1: TPanel Left = 0 Top = 255 Width = 489 Height = 23 Align = alBottom BevelOuter = bvNone TabOrder = 2 object StatusBar1: TStatusBar Left = 0 Top = -2 Width = 489 Height = 25 Panels = < item Width = 300 end item Width = 100 end item Width = 50 end> SimplePanel = False end object ProgressBar1: TProgressBar Left = 278 Top = 2 Width = 120 Height = 21 Min = 0 Max = 100 TabOrder = 1 end end object BodyMemo: TMemo Left = 0 Top = 101 Width = 489 Height = 154 Align = alClient Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'Thanks for using CIECHECK 3.62. All comments are welcome !' '----------------------------------------------------------------' + '----------------------------------' 'For personal user :' '' 'User Name :' 'Where did you get the program :' 'Donation (Y/N) : ' 'Donation Fee : ' '' 'After registration, we will send you a password for the above Na' + 'me within 1 or 2 days.' '' '----------------------------------------------------------------' + '----------------------------------' 'For corporation User :' '' 'It is a freeware only for personal use ! You should pay US$20 fo' + 'r corporation license.' '' 'Order Form of CIECHECK 3.62 ' '--------------------------------------' 'Company Name :' 'User Name :' 'Address :' 'Tel :' 'Fax :' 'Price : $20' 'Card : Visa/Master Card' 'Card No :' 'Expired Date :' 'Signature :' '') ParentFont = False ScrollBars = ssVertical TabOrder = 3 WantTabs = True end object msSMTP1: TmsSMTP WinsockLoaded = True DefaultPort = 25 OnOpen = msSMTP1Open OnClosing = msSMTP1Closing OnClosed = msSMTP1Closed OnError = msSMTP1Error MailMessage = msMessage1 OnProgress = msSMTP1Progress OnPrepare = msSMTP1Prepare OnSending = msSMTP1Sending OnMailSent = msSMTP1MailSent Left = 97 Top = 8 end object msMessage1: TmsMessage ContentType = 'text/plain' ReturnReceipt = False Left = 135 Top = 8 end end