object FormNag: TFormNag Left = 246 Top = 176 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Please Register!' ClientHeight = 208 ClientWidth = 257 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 241 Height = 161 Shape = bsFrame end object Image1: TImage Left = 16 Top = 16 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label1: TLabel Left = 56 Top = 17 Width = 100 Height = 13 Caption = 'Popup Calendar v1.4' end object Label2: TLabel Left = 56 Top = 34 Width = 179 Height = 13 Caption = 'Copyright � 1996 by Alastria Software' end object Memo1: TMemo Left = 16 Top = 56 Width = 225 Height = 105 Alignment = taCenter BorderStyle = bsNone Color = cl3DLight Ctl3D = False Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'Your 30-day evaluation period has ' 'expired. Please register this copy of ' 'Popup Calendar. It is only $5 US.' '' 'To register, see the '#39'Register...'#39' dialog ' 'about the necessary information.') ParentCtl3D = False ParentFont = False TabOrder = 0 end object BtnOK: TBitBtn Left = 95 Top = 176 Width = 66 Height = 25 TabOrder = 1 OnClick = BtnOKClick Kind = bkOK end end