inherited MainForm: TMainForm Left = 371 Height = 280 Top = 150 Width = 327 Caption = 'Translation demo' ClientHeight = 280 ClientWidth = 327 OnCreate = FormCreate object Label1: TLabel[0] Left = 14 Height = 15 Top = 16 Width = 83 Caption = 'Select language' FocusControl = CbLanguage ParentColor = False end object CbLanguage: TComboBox[1] Left = 136 Height = 23 Top = 13 Width = 178 Anchors = [akTop, akLeft, akRight] DropDownCount = 16 ItemHeight = 15 Items.Strings = ( 'de - deutsch' 'en - English' 'es - Español' 'fr - Français' 'he - Hebrew' 'hu - magyar' 'it - Italiano' 'lt - Lietuviškai' 'pt_BR - Português (Brasil)' 'ru - русский' 'uk - українська' 'zh_CN - 简体中文' ) OnChange = CbLanguageChange Style = csDropDownList TabOrder = 0 end object Button1: TButton[2] Left = 14 Height = 25 Top = 240 Width = 300 Anchors = [akTop, akLeft, akRight] Caption = 'Open second form' OnClick = Button1Click TabOrder = 1 end object RgDrinks: TRadioGroup[3] Left = 14 Height = 97 Top = 47 Width = 296 Anchors = [akTop, akLeft, akRight] AutoFill = True Caption = 'Please select a drink' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 77 ClientWidth = 292 Items.Strings = ( 'beer' 'wine' 'water' ) OnClick = RgDrinksClick TabOrder = 2 end object Button2: TButton[4] Left = 18 Height = 25 Top = 184 Width = 158 Caption = 'What did you select?' OnClick = Button2Click TabOrder = 3 end object Bevel1: TBevel[5] Left = 9 Height = 3 Top = 224 Width = 301 Anchors = [akTop, akLeft, akRight] Shape = bsTopLine end object LblCurrentSelection: TLabel[6] Left = 18 Height = 15 Top = 154 Width = 95 Caption = 'No drink selected.' ParentColor = False end end