object dForm: TdForm Left = 418 Height = 180 Top = 276 Width = 220 Caption = 'Date entry' ClientHeight = 180 ClientWidth = 220 LCLVersion = '2.0.12.0' object ButtonPanel1: TButtonPanel Left = 6 Height = 34 Top = 140 Width = 208 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True ButtonOrder = boCloseCancelOK TabOrder = 3 ShowButtons = [pbOK, pbCancel] end object seDay: TSpinEdit Left = 120 Height = 21 Top = 12 Width = 50 MaxValue = 31 MinValue = 1 TabOrder = 0 Value = 1 end object seMonth: TSpinEdit Left = 120 Height = 21 Top = 56 Width = 50 MaxValue = 12 MinValue = 1 TabOrder = 1 Value = 1 end object seYear: TSpinEdit Left = 105 Height = 21 Top = 96 Width = 65 MaxValue = 9999 MinValue = 1 TabOrder = 2 Value = 1 end object LDay: TLabel Left = 45 Height = 16 Top = 20 Width = 23 Caption = 'Day' ParentColor = False end object LMonth: TLabel Left = 45 Height = 16 Top = 60 Width = 39 Caption = 'Month' ParentColor = False end object LYear: TLabel Left = 45 Height = 16 Top = 100 Width = 27 Caption = 'Year' ParentColor = False end end