inherited Form2: TForm2 Left = 635 Height = 280 Top = 148 Width = 288 Caption = 'Second Form' ClientHeight = 280 ClientWidth = 288 OnCreate = FormCreate object LblTodayIs: TLabel[0] Left = 16 Height = 15 Top = 16 Width = 57 Caption = 'LblTodayIs' Color = clDefault ParentColor = False end object LblMoney: TLabel[1] Left = 16 Height = 15 Top = 40 Width = 53 Caption = 'LblMoney' Color = clDefault ParentColor = False ParentFont = False end object GroupBox1: TGroupBox[2] Left = 16 Height = 160 Top = 72 Width = 256 Caption = 'Please select' ClientHeight = 142 ClientWidth = 252 TabOrder = 0 object RadioGroup: TRadioGroup Left = 7 Height = 90 Top = 9 Width = 111 AutoFill = True Caption = 'Single item' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 72 ClientWidth = 107 ItemIndex = 0 Items.Strings = ( 'one' 'two' 'three' ) OnSelectionChanged = RadioGroupSelectionChanged TabOrder = 0 end object CheckGroup: TCheckGroup Left = 134 Height = 90 Top = 9 Width = 104 AutoFill = True Caption = 'Several items' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 72 ClientWidth = 100 Items.Strings = ( 'one' 'two' 'three' ) OnItemClick = CheckGroupItemClick TabOrder = 1 Data = { 03000000020202 } end object LblSum: TLabel Left = 7 Height = 15 Top = 112 Width = 231 AutoSize = False Caption = 'LblSum' Color = clDefault ParentColor = False end end end