object fAbout: TfAbout Left = 229 Top = 200 ActiveControl = edName BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Text utility registration form' ClientHeight = 220 ClientWidth = 340 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter PrintScale = poNone Scaled = False PixelsPerInch = 96 TextHeight = 16 object Image2: TImage Left = 0 Top = 0 Width = 340 Height = 220 Align = alClient AutoSize = True Picture.Data = {} end object Label12: TLabel Left = 7 Top = 51 Width = 235 Height = 52 Caption = 'Please enter'#13#10'your name and '#13#10'your registration '#13#10'number below. ' + 'Thank you in anticipation.' Font.Charset = DEFAULT_CHARSET Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label13: TLabel Left = 7 Top = 107 Width = 126 Height = 26 Caption = 'Registration name'#13#10'(8 characters or more)' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label14: TLabel Left = 7 Top = 144 Width = 114 Height = 13 Caption = 'Registration number' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label15: TLabel Left = 322 Top = 3 Width = 17 Height = 13 Caption = 'psb' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True Visible = False end object bnReg: TSpeedButton Left = 202 Top = 167 Width = 127 Height = 22 Caption = 'Register' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = bnRegClick end object SpeedButton1: TSpeedButton Left = 8 Top = 167 Width = 127 Height = 22 Caption = 'Close' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object Bevel1: TBevel Left = -80 Top = 193 Width = 500 Height = 47 Shape = bsTopLine Style = bsRaised end object SpeedButton2: TSpeedButton Left = 33 Top = 197 Width = 275 Height = 20 Cursor = crHandPoint Caption = 'http://www.geocities.com/funny_ball_2000' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = SpeedButton2Click end object edNumber: TEdit Left = 135 Top = 140 Width = 196 Height = 21 Color = clNavy Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 Text = 'Your key code here' end object edName: TEdit Left = 135 Top = 110 Width = 196 Height = 21 Color = clNavy Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 Text = 'Unknown' end end