object FormTCPIP: TFormTCPIP Left = 345 Top = 115 Width = 403 Height = 374 VertScrollBar.Range = 177 ActiveControl = EditServerPort Caption = 'TCP/IP - CLX' Color = clButton OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 TextWidth = 6 object PanelServer: TPanel Left = 0 Top = 0 Width = 403 Height = 177 Align = alTop BevelInner = bvLowered Caption = ' ' TabOrder = 0 object GroupBoxServerSettings: TGroupBox Left = 2 Top = 2 Width = 137 Height = 173 Align = alLeft Caption = 'Server Settings' TabOrder = 0 object PanelServerPort: TPanel Left = 2 Top = 13 Width = 133 Height = 20 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone Caption = '&Port' TabOrder = 0 object EditServerPort: TEditIni Left = 56 Top = 0 Width = 77 Height = 20 TabOrder = 0 Text = '151' Ini.AutoSave = True Ini.PropName = 'Text' Align = alRight end end object NotebookServer: TPageControl Left = 32 Top = 72 Width = 97 Height = 89 ActivePage = TabSheet1 Style = tsButtons TabHeight = 2 TabOrder = 1 object TabSheet1: TTabSheet Caption = 'TabSheet1' object ButtonServerListen: TButton Left = 9 Top = 8 Width = 80 Height = 25 Caption = '&Listen' TabOrder = 0 OnClick = ButtonServerListenClick end end object TabSheet2: TTabSheet Caption = 'TabSheet2' ImageIndex = 1 object LabelConnectionsText: TLabel Left = 8 Top = 40 Width = 59 Height = 13 Caption = 'Connections' end object LabelConnections: TLabel Left = 80 Top = 40 Width = 6 Height = 13 Alignment = taRightJustify Caption = '0' end object ButtonClose: TButton Left = 9 Top = 8 Width = 80 Height = 25 Caption = 'C&lose' TabOrder = 0 OnClick = ButtonCloseClick end end end end object MemoServerError: TMemo Left = 139 Top = 2 Width = 262 Height = 173 Align = alClient TabOrder = 1 end end object PanelClient: TPanel Left = 0 Top = 177 Width = 403 Height = 197 Align = alClient BevelInner = bvLowered Caption = ' ' TabOrder = 1 object GroupBoxClientSettings: TGroupBox Left = 2 Top = 2 Width = 137 Height = 193 Align = alLeft Caption = 'Client Settings' TabOrder = 0 object PanelClientPort: TPanel Left = 2 Top = 13 Width = 133 Height = 20 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone Caption = '&Port' TabOrder = 0 object EditClientPort: TEditIni Left = 56 Top = 0 Width = 77 Height = 20 TabOrder = 0 Text = '151' Ini.AutoSave = True Ini.PropName = 'Text' Align = alRight end end object PanelHost: TPanel Left = 2 Top = 33 Width = 133 Height = 20 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone Caption = '&Host' TabOrder = 1 object EditHost: TEditIni Left = 56 Top = 0 Width = 77 Height = 20 TabOrder = 0 Text = 'vesa' Ini.AutoSave = True Ini.PropName = 'Text' Align = alRight end end object NotebookClient: TPageControl Left = 24 Top = 104 Width = 105 Height = 49 ActivePage = TabSheet3 Style = tsButtons TabHeight = 1 TabOrder = 2 object TabSheet3: TTabSheet Caption = 'TabSheet3' object ButtonClientConnect: TButton Left = 9 Top = 8 Width = 80 Height = 25 Caption = '&Connect' Default = True TabOrder = 0 OnClick = ButtonClientConnectClick end end object TabSheet4: TTabSheet Caption = 'TabSheet4' ImageIndex = 1 object ButtonClientClose: TButton Left = 9 Top = 8 Width = 80 Height = 25 Caption = '&Close' TabOrder = 0 OnClick = ButtonClientCloseClick end end end end object MemoClientError: TMemo Left = 139 Top = 2 Width = 262 Height = 193 Align = alClient TabOrder = 1 end end object Server: TIdTCPServer Bindings = <> DefaultPort = 0 OnConnect = ServerConnect OnExecute = ServerExecute OnDisconnect = ServerDisconnect Left = 16 Top = 120 end object Client: TIdTCPClient OnStatus = ClientStatus OnDisconnected = ClientDisconnected OnConnected = ClientConnected Port = 0 UseNagle = False Left = 16 Top = 336 end end