object ServerForm: TServerForm Left = 0 Top = 0 Caption = 'TnSrv - VCL Version' ClientHeight = 339 ClientWidth = 580 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Segoe UI' Font.Style = [] OnShow = FormShow DesignSize = ( 580 339) TextHeight = 15 object PortLabel: TLabel Left = 16 Top = 283 Width = 22 Height = 15 Anchors = [akLeft, akBottom] Caption = 'Port' end object DisplayMemo: TMemo Left = 8 Top = 8 Width = 569 Height = 264 Anchors = [akLeft, akTop, akRight, akBottom] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( 'DisplayMemo') ParentFont = False TabOrder = 0 end object PortEdit: TEdit Left = 48 Top = 280 Width = 57 Height = 23 Anchors = [akLeft, akBottom] TabOrder = 1 Text = 'PortEdit' end object ChangePortButton: TButton Left = 120 Top = 278 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Change' TabOrder = 2 OnClick = ChangePortButtonClick end object CloseSocketButton: TButton Left = 120 Top = 309 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Close' TabOrder = 3 OnClick = CloseSocketButtonClick end object IPv4RadioButton: TRadioButton Left = 216 Top = 283 Width = 49 Height = 17 Anchors = [akLeft, akBottom] Caption = 'IPv4' Checked = True TabOrder = 4 TabStop = True end object IPv6RadioButton: TRadioButton Left = 216 Top = 313 Width = 49 Height = 17 Anchors = [akLeft, akBottom] Caption = 'IPv6' TabOrder = 5 end object EchoCheckBox: TCheckBox Left = 288 Top = 282 Width = 49 Height = 17 Anchors = [akLeft, akBottom] Caption = 'Echo' TabOrder = 6 end object QuitButton: TButton Left = 502 Top = 278 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'Quit' TabOrder = 7 OnClick = QuitButtonClick end object ClearDisplayButton: TButton Left = 502 Top = 309 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'Clear display' TabOrder = 8 OnClick = ClearDisplayButtonClick end object SrvSocket: TIcsWSocket LineEnd = #13#10 TimeoutSampling = 5000 TimeoutConnect = 0 TimeoutIdle = 0 Proto = 'tcp' LocalAddr = '0.0.0.0' LocalAddr6 = '::' LocalPort = '0' SocksLevel = '5' ExclusiveAddr = False ComponentOptions = [] ListenBacklog = 15 SocketErrs = wsErrTech Left = 80 Top = 64 end end