object Form1: TForm1 Left = 338 Height = 178 Top = 128 Width = 268 Caption = 'Form1' ClientHeight = 178 ClientWidth = 268 LCLVersion = '2.3.0.0' object Button1: TButton Left = 128 Height = 25 Top = 128 Width = 101 AutoSize = True Caption = 'Flash (100 ms)' Enabled = False OnClick = Button1Click TabOrder = 0 end object AdvLed1: TAdvLed Left = 56 Height = 24 Top = 64 Width = 24 State = lsDisabled Blink = False end object RadioGroup1: TRadioGroup Left = 128 Height = 100 Top = 16 Width = 112 AutoFill = True Caption = 'State' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 80 ClientWidth = 108 ItemIndex = 0 Items.Strings = ( 'disabled' 'off' 'on' 'blink (500 ms)' ) OnClick = RadioGroup1Click TabOrder = 1 end end