object SrvForm: TSrvForm Left = 335 Top = 205 Caption = 'Server' ClientHeight = 184 ClientWidth = 367 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 ClientListBox: TListBox Left = 0 Top = 41 Width = 367 Height = 143 Align = alClient ItemHeight = 13 TabOrder = 0 end object Panel1: TPanel Left = 0 Top = 0 Width = 367 Height = 41 Align = alTop TabOrder = 1 object Label1: TLabel Left = 8 Top = 16 Width = 19 Height = 13 Caption = 'Port' end object PortEdit: TEdit Left = 48 Top = 8 Width = 73 Height = 21 TabOrder = 0 Text = 'PortEdit' end object PortButton: TButton Left = 128 Top = 8 Width = 57 Height = 21 Caption = '&Restart' Default = True TabOrder = 1 OnClick = PortButtonClick end end object SrvSocket: TWSocket 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 = wsKeepAliveOnSystem KeepAliveTime = 30000 KeepAliveInterval = 1000 SocksLevel = '5' SocksAuthentication = socksNoAuthentication LastError = 0 ReuseAddr = False ComponentOptions = [] ListenBacklog = 5 ReqVerLow = 2 ReqVerHigh = 2 OnSessionAvailable = SrvSocketSessionAvailable Left = 32 Top = 56 end object DataTable: TTable DatabaseName = 'i:\cours97\delphi\reseau' IndexName = 'NOM' TableName = 'clients.dbf' Left = 96 Top = 56 end end