object MainForm: TMainForm Left = 136 Top = 153 AutoScroll = False Caption = 'Fancy RadioButton Groups' ClientHeight = 290 ClientWidth = 550 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [] OldCreateOrder = True PixelsPerInch = 120 TextHeight = 18 object Panel1: TPanel Left = 9 Top = 9 Width = 226 Height = 136 BevelInner = bvLowered BevelWidth = 4 BorderStyle = bsSingle TabOrder = 0 object RadioButton1: TRadioButton Left = 54 Top = 18 Width = 127 Height = 19 Caption = 'RadioButton1' Checked = True TabOrder = 0 TabStop = True end object RadioButton2: TRadioButton Left = 54 Top = 45 Width = 127 Height = 19 Caption = 'RadioButton2' TabOrder = 1 end object RadioButton3: TRadioButton Left = 54 Top = 72 Width = 127 Height = 19 Caption = 'RadioButton3' TabOrder = 2 end object RadioButton4: TRadioButton Left = 54 Top = 99 Width = 127 Height = 19 Caption = 'RadioButton4' TabOrder = 3 end end object Panel2: TPanel Left = 252 Top = 9 Width = 226 Height = 136 BevelInner = bvRaised BevelWidth = 3 BorderWidth = 2 BorderStyle = bsSingle TabOrder = 1 object RadioButton5: TRadioButton Left = 54 Top = 27 Width = 127 Height = 19 Caption = 'RadioButton5' Checked = True TabOrder = 0 TabStop = True end object RadioButton6: TRadioButton Left = 54 Top = 54 Width = 127 Height = 19 Caption = 'RadioButton6' TabOrder = 1 end object RadioButton7: TRadioButton Left = 54 Top = 81 Width = 127 Height = 19 Caption = 'RadioButton7' TabOrder = 2 end end object Memo1: TMemo Left = 9 Top = 153 Width = 226 Height = 100 TabStop = False Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( 'BevelInner = bvLowered' 'BevelOuter = bvRaised' 'BevelWidth = 4' 'BorderStyle = bsSingle' 'BorderWidth = 0') ParentFont = False ReadOnly = True TabOrder = 2 end object Memo2: TMemo Left = 252 Top = 153 Width = 226 Height = 100 TabStop = False Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( 'BevelInner = bvRaised' 'BevelOuter = bvRaised' 'BevelWidth = 3' 'BorderStyle = bsSingle' 'BorderWidth = 2') ParentFont = False ReadOnly = True TabOrder = 3 end object BitBtn1: TBitBtn Left = 486 Top = 72 Width = 55 Height = 109 TabOrder = 4 Kind = bkClose Layout = blGlyphBottom end end