object FormPlayer: TFormPlayer Left = 470 Height = 344 Top = 219 Width = 522 Caption = 'Player' ClientHeight = 344 ClientWidth = 522 Constraints.MinHeight = 344 Constraints.MinWidth = 522 OnClose = FormClose OnCreate = FormCreate OnShow = FormShow Position = poMainFormCenter LCLVersion = '1.8.0.4' object Label1: TLabel Left = 24 Height = 26 Top = 27 Width = 56 Caption = 'Name:' ParentColor = False end object EditName: TEdit Left = 168 Height = 36 Top = 27 Width = 339 Anchors = [akTop, akLeft, akRight] TabOrder = 0 end object ButtonCancel: TButton Left = 278 Height = 25 Top = 307 Width = 75 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object ButtonOk: TButton Left = 403 Height = 25 Top = 307 Width = 75 Anchors = [akRight, akBottom] Caption = 'Ok' Default = True ModalResult = 1 TabOrder = 2 end object ComboBoxMode: TComboBox Left = 168 Height = 36 Top = 72 Width = 339 Anchors = [akTop, akLeft, akRight] ItemHeight = 0 ItemIndex = 0 Items.Strings = ( 'Human' 'Computer' ) OnChange = ComboBoxModeChange Style = csDropDownList TabOrder = 3 Text = 'Human' end object Label2: TLabel Left = 24 Height = 26 Top = 72 Width = 53 Caption = 'Mode:' ParentColor = False end object Label3: TLabel Left = 24 Height = 26 Top = 128 Width = 50 Caption = 'Color:' ParentColor = False end object ColorBox1: TColorBox Left = 168 Height = 40 Top = 120 Width = 339 Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames] Anchors = [akTop, akLeft, akRight] ItemHeight = 20 TabOrder = 4 end object Label4: TLabel Left = 24 Height = 26 Top = 168 Width = 98 Caption = 'Agressivity:' ParentColor = False end object ComboBoxAgressivity: TComboBox Left = 168 Height = 40 Top = 168 Width = 339 Anchors = [akTop, akLeft, akRight] ItemHeight = 0 Items.Strings = ( 'Low' 'Medium' 'High' '' ) Style = csDropDownList TabOrder = 5 end object CheckBoxDefensive: TCheckBox Left = 24 Height = 30 Top = 208 Width = 107 Caption = 'Defensive' TabOrder = 6 end object Label5: TLabel Left = 24 Height = 26 Top = 248 Width = 94 Caption = 'Start units:' ParentColor = False end object SpinEditStartUnits: TSpinEdit Left = 224 Height = 36 Top = 240 Width = 112 MaxValue = 99 TabOrder = 7 end end