object Form1: TForm1 Left = 354 Height = 155 Top = 279 Width = 228 AutoSize = True BorderStyle = bsDialog Caption = 'Form1' ClientHeight = 155 ClientWidth = 228 OnActivate = FormActivate Position = poScreenCenter LCLVersion = '2.3.0.0' object lblExpires: TLabel AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Info AnchorSideTop.Side = asrBottom Left = 64 Height = 15 Top = 54 Width = 101 Caption = 'Expires: 00/00/0000' ParentColor = False end object CloseBtn: TBitBtn AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Bevel1 AnchorSideTop.Side = asrBottom Left = 91 Height = 26 Top = 96 Width = 46 AutoSize = True BorderSpacing.Around = 12 Kind = bkClose TabOrder = 0 end object Info: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 12 Height = 30 Top = 12 Width = 204 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 12 Caption = 'If you can see this, your program was allowed to run.' WordWrap = True OnDblClick = InfoDblClick end object Bevel1: TBevel AnchorSideLeft.Control = Info AnchorSideTop.Control = lblExpires AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Info AnchorSideRight.Side = asrBottom Left = 12 Height = 3 Top = 81 Width = 204 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 12 Shape = bsTopLine end object OgDateCode1: TOgDateCode OnChecked = OgDateCode1Checked OnGetKey = OgDateCode1GetKey OnGetCode = OgDateCode1GetCode Left = 168 Top = 72 end end