object Form1: TForm1 Left = 603 Top = 69 ActiveControl = Edit1 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'CD Tach Upgrade' ClientHeight = 232 ClientWidth = 263 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 29 Width = 256 Height = 87 AutoSize = False Caption = 'Call TestaCD Labs now to upgrade to CD Tach Professional for onl' + 'y $29.95. You will be given a unique registration code. Enter ' + 'the code below and write it down somewhere safe. You will need ' + 'this code every time you use CD Tach on a new computer.' WordWrap = True end object Label2: TLabel Left = 22 Top = 140 Width = 84 Height = 13 Caption = 'Registration Code' end object Label3: TLabel Left = 8 Top = 10 Width = 89 Height = 13 Caption = 'Call (520)531-1880' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Edit1: TEdit Left = 117 Top = 136 Width = 121 Height = 21 MaxLength = 11 TabOrder = 0 end object Button1: TButton Left = 44 Top = 197 Width = 75 Height = 25 Caption = '&Register' Default = True TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 155 Top = 197 Width = 75 Height = 25 Caption = '&Quit' TabOrder = 2 OnClick = Button2Click end end