object Form1: TForm1 Left = 264 Height = 265 Top = 133 Width = 380 Caption = 'Setup Serial Link' ClientHeight = 265 ClientWidth = 380 OnClose = FormClose OnCreate = FormCreate LCLVersion = '1.0.14.0' object Label1: TLabel Left = 203 Height = 16 Top = 33 Width = 26 Caption = 'Port:' ParentColor = False end object Label2: TLabel Left = 203 Height = 16 Top = 63 Width = 54 Caption = 'Baudrate :' ParentColor = False end object Label3: TLabel Left = 203 Height = 16 Top = 96 Width = 37 Caption = 'Parity :' ParentColor = False end object Label4: TLabel Left = 203 Height = 16 Top = 127 Width = 50 Caption = 'StopBits :' ParentColor = False end object Label5: TLabel Left = 203 Height = 16 Top = 159 Width = 50 Caption = 'Databits :' ParentColor = False end object Label6: TLabel Left = 203 Height = 16 Top = 191 Width = 72 Caption = 'FlowControl :' ParentColor = False end object BitBtn_close: TBitBtn Left = 295 Height = 30 Top = 227 Width = 75 Caption = '&Close' Kind = bkClose TabOrder = 0 end object ComboBox_port: TComboBox Left = 270 Height = 23 Top = 26 Width = 100 ItemHeight = 15 ItemIndex = 7 Items.Strings = ( 'COM1' 'COM2' 'COM3' 'COM4' 'COM5' 'COM6' 'COM7' 'COM8' ) TabOrder = 1 Text = 'COM8' end object ComboBox_baudrate: TComboBox Left = 270 Height = 23 Top = 56 Width = 100 ItemHeight = 15 ItemIndex = 5 Items.Strings = ( 'br___300' 'br___600' 'br__1200' 'br__2400' 'br__4800' 'br__9600' 'br_19200' 'br_38400' 'br_57600' 'br115200' ) TabOrder = 2 Text = 'br__9600' end object ComboBox_parite: TComboBox Left = 270 Height = 23 Top = 88 Width = 100 ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'pNone' 'pOdd' 'pEven' 'pMark' 'pSpace' ) TabOrder = 3 Text = 'pNone' end object ComboBox_stopbits: TComboBox Left = 270 Height = 23 Top = 120 Width = 100 ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'sbOne' 'sbTwo' ) TabOrder = 4 Text = 'sbOne' end object ComboBox_databits: TComboBox Left = 270 Height = 23 Top = 152 Width = 100 ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'db8bits' 'db7bits' 'db6bits' 'db5bits' ) TabOrder = 5 Text = 'db8bits' end object ComboBox_flowcontrol: TComboBox Left = 270 Height = 23 Top = 184 Width = 100 ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'fcNone' 'fcXonXoff' 'fcHardware' ) TabOrder = 6 Text = 'fcNone' end object Memo_terminal: TMemo Left = 8 Height = 184 Top = 40 Width = 184 TabOrder = 7 end object Button_connect: TButton Left = 8 Height = 25 Top = 232 Width = 75 Caption = 'Connect !' OnClick = Button_connectClick TabOrder = 8 end object Button_disconnect: TButton Left = 117 Height = 25 Top = 232 Width = 75 Caption = 'Disconnect !' OnClick = Button_disconnectClick TabOrder = 9 end object Edit1: TEdit Left = 8 Height = 23 Top = 8 Width = 88 TabOrder = 10 Text = 'Text to send...' end object Button_send: TButton Left = 104 Height = 25 Top = 8 Width = 75 Caption = 'Send' OnClick = Button_sendClick TabOrder = 11 end object SdpoSerial1: TSdpoSerial Active = False BaudRate = br__9600 DataBits = db8bits Parity = pNone FlowControl = fcNone StopBits = sbOne Device = 'COM8' OnRxData = SdpoSerial1RxData left = 248 top = 216 end end