object MainForm: TMainForm Left = 0 Top = 0 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'SimulatorFans - Assetto Corsa' ClientHeight = 390 ClientWidth = 645 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object PortComboBox: TComboBox Left = 24 Top = 24 Width = 201 Height = 21 Style = csDropDownList TabOrder = 0 end object RefreshPortsButton: TButton Left = 231 Top = 23 Width = 75 Height = 23 Caption = 'Refresh' TabOrder = 1 OnClick = RefreshPortsButtonClick end object Button1: TButton Left = 192 Top = 176 Width = 75 Height = 25 Caption = 'Connect' TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 288 Top = 176 Width = 75 Height = 25 Caption = 'Fan 1 full' TabOrder = 3 OnClick = Button2Click end object Button3: TButton Left = 384 Top = 176 Width = 75 Height = 25 Caption = 'Fan 2 full' TabOrder = 4 OnClick = Button3Click end object Button4: TButton Left = 480 Top = 176 Width = 75 Height = 25 Caption = 'Off' TabOrder = 5 OnClick = Button4Click end object Button5: TButton Left = 288 Top = 207 Width = 75 Height = 25 Caption = 'Fan 1 half' TabOrder = 6 OnClick = Button5Click end object Button6: TButton Left = 384 Top = 207 Width = 75 Height = 25 Caption = 'Fan 2 half' TabOrder = 7 OnClick = Button6Click end object Edit1: TEdit Left = 288 Top = 253 Width = 75 Height = 21 TabOrder = 8 Text = '0' end object Button7: TButton Left = 288 Top = 280 Width = 171 Height = 25 Caption = 'Set' TabOrder = 9 OnClick = Button7Click end object Edit2: TEdit Left = 384 Top = 253 Width = 75 Height = 21 TabOrder = 10 Text = '0' end end