object RegWinForm: TRegWinForm Left = 196 Top = 88 BorderIcons = [biMinimize, biMaximize] BorderStyle = bsDialog Caption = ' ' ClientHeight = 383 ClientWidth = 440 Font.Color = clBlack Font.Height = -11 Font.Name = 'MSI Console' Font.Style = [] OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Bevel1: TBevel Left = 0 Top = 0 Width = 440 Height = 383 Align = alClient Shape = bsFrame end object RegNow: TButton Left = 8 Top = 352 Width = 107 Height = 25 Hint = 'Click here to fill registration form' Caption = 'Register Now' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = RegNowClick end object Button2: TButton Left = 120 Top = 352 Width = 121 Height = 25 Hint = 'Click here to close this window' Caption = 'Register Later' ModalResult = 1 ParentShowHint = False ShowHint = True TabOrder = 2 end object RegKey: TButton Left = 248 Top = 352 Width = 185 Height = 25 Hint = 'Click here to enter Registration Key' Caption = 'Enter Registration Key' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = RegKeyClick end object Panel1: TPanel Left = 8 Top = 8 Width = 425 Height = 337 BevelInner = bvRaised BevelWidth = 2 BorderStyle = bsSingle TabOrder = 0 object Label2: TLabel Left = 34 Top = 72 Width = 352 Height = 12 Caption = 'GO-MOKU IS DISTRIBUTED ON SHAREWARE CONCEPT.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MSI Console' Font.Style = [fsUnderline] ParentFont = False end object Label3: TLabel Left = 8 Top = 96 Width = 408 Height = 12 Caption = 'You are allowed to use this version for a period of' end object Label4: TLabel Left = 8 Top = 112 Width = 400 Height = 12 Caption = '21 days for free. If at the end of this evaluation' end object Label5: TLabel Left = 8 Top = 128 Width = 408 Height = 12 Caption = 'period you decide to continue using it - you must' end object Label6: TLabel Left = 8 Top = 144 Width = 400 Height = 12 Caption = 'register with the author by paying a small {$5 US}' end object Label7: TLabel Left = 8 Top = 160 Width = 392 Height = 12 Caption = 'registration fee. Upon registration you receive a' end object Label1: TLabel Left = 8 Top = 176 Width = 392 Height = 12 Caption = 'unique registration code which will convert this ' end object Label8: TLabel Left = 8 Top = 192 Width = 392 Height = 12 Caption = 'shareware version to the full registered version.' end object Label9: TLabel Left = 123 Top = 216 Width = 176 Height = 12 Caption = 'REGISTRATION BENEFITS:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MSI Console' Font.Style = [fsUnderline] ParentFont = False end object Image2: TImage Left = 11 Top = 239 Width = 14 Height = 14 AutoSize = True Picture.Data = {} end object Label10: TLabel Left = 32 Top = 240 Width = 184 Height = 12 Caption = 'Unlimited Hints Enabled' end object Image1: TImage Left = 11 Top = 255 Width = 14 Height = 14 AutoSize = True Picture.Data = {} end object Label11: TLabel Left = 32 Top = 256 Width = 176 Height = 12 Caption = 'Unlimited Undo Enabled' end object Image3: TImage Left = 11 Top = 271 Width = 14 Height = 14 AutoSize = True Picture.Data = {} end object Label12: TLabel Left = 32 Top = 272 Width = 352 Height = 12 Caption = 'More Flexible Artificial Intelligence Engine' end object Image4: TImage Left = 11 Top = 287 Width = 14 Height = 14 AutoSize = True Picture.Data = {} end object Label13: TLabel Left = 32 Top = 288 Width = 112 Height = 12 Caption = 'FREE Upgrades!' end object Image5: TImage Left = 11 Top = 303 Width = 14 Height = 14 AutoSize = True Picture.Data = {} end object Label14: TLabel Left = 32 Top = 304 Width = 320 Height = 12 Caption = 'No More Annoying Screens {Like That One}' end object Panel2: TPanel Left = 102 Top = 8 Width = 217 Height = 49 BevelInner = bvLowered BevelOuter = bvLowered TabOrder = 0 object LabelEffect1: TLabelEffect Left = 18 Top = 0 Width = 182 Height = 42 DepthShadow = 2 DirectionHighlight = edDownRight DirectionShadow = edUpLeft ColourShadow = clGray EffectStyle = esCustom ColourScheme = csCustom AutoSize = True Caption = 'GO-MOKU' Color = clSilver Font.Color = clNavy Font.Height = -37 Font.Name = 'Arial' Font.Style = [fsUnderline] ParentColor = False ParentFont = False Transparent = True end end end end