object Form1: TForm1 Left = 811 Height = 240 Top = 410 Width = 320 BorderIcons = [biSystemMenu] Caption = 'Form1' ClientHeight = 240 ClientWidth = 320 LCLVersion = '2.0.12.0' object DateBtn: TButton Left = 70 Height = 52 Top = 94 Width = 181 Caption = 'Show Date' Font.Style = [fsBold] OnClick = DateBtnClick ParentFont = False TabOrder = 0 end end