object TcpSrvForm: TTcpSrvForm Left = 270 Top = 113 Caption = 'TcpSrvForm' ClientHeight = 244 ClientWidth = 312 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ToolPanel: TPanel Left = 0 Top = 0 Width = 312 Height = 41 Align = alTop TabOrder = 0 end object DisplayMemo: TMemo Left = 0 Top = 41 Width = 312 Height = 203 Align = alClient Lines.Strings = ( 'DisplayMemo') TabOrder = 1 end object WSocketServer1: TWSocketServer LineMode = False LineLimit = 65536 LineEnd = #13#10 LineEcho = False LineEdit = False Proto = 'tcp' LocalAddr = '0.0.0.0' LocalPort = '0' MultiThreaded = False MultiCast = False MultiCastIpTTL = 1 FlushTimeout = 60 SendFlags = wsSendNormal LingerOnOff = wsLingerOn LingerTimeout = 0 KeepAliveOnOff = wsKeepAliveOff KeepAliveTime = 0 KeepAliveInterval = 0 SocksLevel = '5' SocksAuthentication = socksNoAuthentication LastError = 0 ReuseAddr = False ComponentOptions = [] ListenBacklog = 5 ReqVerLow = 2 ReqVerHigh = 2 OnBgException = WSocketServer1BgException Banner = 'Welcome to TcpSrv' BannerTooBusy = 'Sorry, too many clients' MaxClients = 0 OnClientDisconnect = WSocketServer1ClientDisconnect OnClientConnect = WSocketServer1ClientConnect Left = 40 Top = 96 end end