object SARegForm: TSARegForm Left = 259 Top = 105 BorderStyle = bsDialog Caption = 'Scholar'#39's Aid 3 Pro Order Form' ClientHeight = 266 ClientWidth = 348 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object aBook: TNotebook Left = 0 Top = 0 Width = 348 Height = 219 Align = alClient TabOrder = 0 OnPageChanged = aBookPageChanged object TPage Left = 0 Top = 0 Caption = 'name' object LThank: TLabel Left = 26 Top = 12 Width = 275 Height = 13 Caption = 'Thank you for ordering the best aid for scholars.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Bevel1: TBevel Left = 2 Top = 80 Width = 347 Height = 9 Shape = bsTopLine end object Label15: TLabel Left = 26 Top = 160 Width = 243 Height = 13 Caption = 'Your order number will be sent to this email address.' end object Label23: TLabel Left = 200 Top = 180 Width = 129 Height = 13 Caption = 'e.g., dna@scholarsaid.com' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label28: TLabel Left = 26 Top = 92 Width = 51 Height = 13 Caption = 'User name' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label29: TLabel Left = 26 Top = 148 Width = 65 Height = 13 Caption = 'Email address' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LSee: TLabel Left = 289 Top = 30 Width = 24 Height = 13 Caption = 'here.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False OnClick = LSeeClick end object Label37: TLabel Left = 28 Top = 44 Width = 277 Height = 29 AutoSize = False Caption = 'You can go back to previous pages to correct information at any ' + 'point in this process.' WordWrap = True end object LMethod: TLabel Left = 28 Top = 30 Width = 259 Height = 13 Caption = 'All information will be encrypted. To see a sample, click' end object Label12: TLabel Left = 26 Top = 105 Width = 183 Height = 13 Caption = 'It must be identical with the user name.' end object Label13: TLabel Left = 207 Top = 114 Width = 1 Height = 1 AutoSize = False Transparent = True OnDblClick = Label28DblClick end object EName: TEdit Left = 26 Top = 121 Width = 167 Height = 21 Enabled = False TabOrder = 0 end object EEmail: TEdit Left = 26 Top = 176 Width = 167 Height = 21 TabOrder = 1 end object EProductID: TEdit Left = 206 Top = 121 Width = 95 Height = 21 CharCase = ecUpperCase TabOrder = 2 Visible = False end end object TPage Left = 0 Top = 0 Caption = 'creditcard' object Label1: TLabel Left = 22 Top = 12 Width = 307 Height = 57 AutoSize = False Caption = 'Please fill blanks. The data will be encrypted before they leave' + ' your computer. No one can see the data until a specially writte' + 'n program by Scholar'#39's Aid, Inc. decrypts the data in a computer' + ' completely isolated from the Internet.' WordWrap = True end object Label3: TLabel Left = 64 Top = 92 Width = 91 Height = 14 Caption = 'credit card number' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object Label4: TLabel Left = 180 Top = 92 Width = 66 Height = 14 Caption = 'name on card' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object Label5: TLabel Left = 286 Top = 92 Width = 46 Height = 13 AutoSize = False Caption = 'exp. date' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True WordWrap = True end object Label6: TLabel Left = 23 Top = 92 Width = 35 Height = 14 Caption = 'amount' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object Label7: TLabel Left = 23 Top = 132 Width = 40 Height = 14 Caption = 'address' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object Label8: TLabel Left = 23 Top = 192 Width = 17 Height = 14 Caption = 'city' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object Label9: TLabel Left = 264 Top = 192 Width = 37 Height = 14 Caption = 'country' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object Label10: TLabel Left = 202 Top = 192 Width = 41 Height = 14 Caption = 'zip code' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object Label11: TLabel Left = 146 Top = 192 Width = 24 Height = 14 Caption = 'state' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object Label35: TLabel Left = 286 Top = 128 Width = 53 Height = 13 Caption = 'e.g., 04/98' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object MECardN: TMaskEdit Left = 62 Top = 106 Width = 113 Height = 21 Hint = 'will be encripted for security' EditMask = '0000\-0000\-0000\-0000;0;_' MaxLength = 19 TabOrder = 4 end object MEExpire: TMaskEdit Left = 286 Top = 106 Width = 43 Height = 21 Hint = 'will be encripted for security' EditMask = '!00/00;1;_' MaxLength = 5 TabOrder = 6 Text = ' / ' end object MEAmount: TMaskEdit Left = 22 Top = 106 Width = 37 Height = 21 Hint = 'You decide the amount.' EditMask = '\$999;0; ' MaxLength = 4 TabOrder = 3 Text = '99' end object EStreet: TEdit Left = 22 Top = 146 Width = 209 Height = 21 TabOrder = 7 end object ECardName: TEdit Left = 178 Top = 106 Width = 105 Height = 21 Hint = 'will be encripted for security' CharCase = ecUpperCase TabOrder = 5 end object ECity: TEdit Left = 22 Top = 172 Width = 121 Height = 21 TabOrder = 8 end object EState: TEdit Left = 146 Top = 172 Width = 53 Height = 21 CharCase = ecUpperCase TabOrder = 9 end object ECountry: TEdit Left = 264 Top = 172 Width = 65 Height = 21 CharCase = ecUpperCase TabOrder = 11 end object EZip: TEdit Left = 202 Top = 172 Width = 59 Height = 21 CharCase = ecUpperCase TabOrder = 10 end object RBMaster: TRadioButton Left = 70 Top = 76 Width = 79 Height = 17 Caption = 'MasterCard' Checked = True TabOrder = 0 TabStop = True OnClick = RBCheckClick end object RBVisa: TRadioButton Left = 152 Top = 76 Width = 61 Height = 17 Caption = 'VISA' TabOrder = 1 OnClick = RBCheckClick end object RBCheck: TRadioButton Left = 216 Top = 76 Width = 65 Height = 17 Caption = 'Check' TabOrder = 2 OnClick = RBCheckClick end end object TPage Left = 0 Top = 0 Caption = 'survey' object Label31: TLabel Left = 26 Top = 12 Width = 251 Height = 13 Caption = 'Please supply the following information for our survey.' end object Label32: TLabel Left = 26 Top = 32 Width = 55 Height = 13 Caption = 'Occupation' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label33: TLabel Left = 26 Top = 76 Width = 195 Height = 13 Caption = 'Where did you learn about Scholar'#39's Aid?' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label34: TLabel Left = 26 Top = 120 Width = 307 Height = 29 AutoSize = False Caption = 'Comments: Whatever you want to say (suggestions, complaints, dis' + 'count amount and why, etc.)' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False WordWrap = True end object CBOccu: TComboBox Left = 27 Top = 48 Width = 203 Height = 21 DropDownCount = 10 ItemHeight = 13 Items.Strings = ( 'Student (Undergraduate)' 'Student (master'#39's program)' 'Student (doctoral program)' 'University Teacher' 'Freelancer writer' 'Journalist' 'Reporter' 'Editor' 'Other (please specify)' '') TabOrder = 0 end object CBLearn: TComboBox Left = 26 Top = 92 Width = 163 Height = 21 ItemHeight = 13 Items.Strings = ( 'Friend' 'Teacher' 'Internet (which site?)' 'News paper' 'Magazine' 'Other (please specify)' '') TabOrder = 1 end object MComment: TMemo Left = 26 Top = 148 Width = 299 Height = 61 ScrollBars = ssVertical TabOrder = 2 end end object TPage Left = 0 Top = 0 Caption = 'confirm' object Label2: TLabel Left = 22 Top = 12 Width = 319 Height = 31 AutoSize = False Caption = 'Confirm that the following information is accurate. If it is not' + ', please go back and make the necessary corrections before proce' + 'eding.' WordWrap = True end object Label19: TLabel Left = 24 Top = 50 Width = 73 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Name :' Transparent = True end object Label20: TLabel Left = 24 Top = 63 Width = 73 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Email :' Transparent = True end object Label21: TLabel Left = 24 Top = 85 Width = 73 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Amount :' Transparent = True end object Label22: TLabel Left = 24 Top = 98 Width = 73 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Card Number :' Transparent = True end object Label24: TLabel Left = 24 Top = 111 Width = 73 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Name on Card :' Transparent = True end object Label25: TLabel Left = 12 Top = 125 Width = 85 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Expiration Date :' Transparent = True end object Label26: TLabel Left = 24 Top = 146 Width = 73 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Address :' Transparent = True end object LAddress: TLabel Left = 104 Top = 160 Width = 221 Height = 33 AutoSize = False Caption = 'Label' WordWrap = True end object LName: TLabel Left = 104 Top = 50 Width = 205 Height = 13 AutoSize = False Caption = 'LName' end object LEmail: TLabel Left = 104 Top = 63 Width = 205 Height = 13 AutoSize = False Caption = 'LEmail' end object LAmount: TLabel Left = 104 Top = 85 Width = 205 Height = 13 AutoSize = False Caption = 'LAmount' end object LCardN: TLabel Left = 104 Top = 98 Width = 205 Height = 13 AutoSize = False Caption = 'LCardN' end object LCardName: TLabel Left = 104 Top = 111 Width = 205 Height = 13 AutoSize = False Caption = 'LCardName' end object LExpire: TLabel Left = 104 Top = 125 Width = 205 Height = 13 AutoSize = False Caption = 'LExpire' end object LStreet: TLabel Left = 104 Top = 146 Width = 225 Height = 13 AutoSize = False Caption = 'LStreet' end object LMakesure: TLabel Left = 12 Top = 196 Width = 325 Height = 13 Alignment = taCenter AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end object TPage Left = 0 Top = 0 Caption = 'transfer' object LStatus: TLabel Left = 26 Top = 14 Width = 288 Height = 13 AutoSize = False end object Memo1: TRichEdit Left = 8 Top = 33 Width = 333 Height = 177 TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'cancel' object Label18: TLabel Left = 40 Top = 162 Width = 189 Height = 13 Caption = 'To continue the registration, click Order.' end object Label36: TLabel Left = 40 Top = 180 Width = 121 Height = 13 Caption = 'To order later, click Later.' end object Label16: TLabel Left = 36 Top = 28 Width = 3 Height = 13 Visible = False end end end object Panel1: TPanel Left = 0 Top = 219 Width = 348 Height = 47 Align = alBottom TabOrder = 1 object SBToggle: TSpeedButton Left = 26 Top = 10 Width = 25 Height = 25 Hint = 'Toggle between Internet and Printing' Caption = 'I/P' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True OnClick = SBToggleClick end object BPrev: TButton Left = 57 Top = 10 Width = 83 Height = 25 Caption = '<< &Previous' Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = BPrevClick end object BNext: TButton Left = 140 Top = 10 Width = 83 Height = 25 Caption = '&Next >>' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = BNextClick end object Button1: TButton Left = 284 Top = 10 Width = 40 Height = 25 Caption = '&Help' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = Button1Click end object BCancel: TButton Left = 230 Top = 10 Width = 48 Height = 25 Caption = '&Cancel' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BCancelClick end end object _HTTP1: T_HTTP NoCache = False ContentTypePost = 'application/x-www-form-urlencoded' Left = 308 Top = 4 end end