object frmMain: TfrmMain
  ActiveControl = TabSheet3
  Caption = 'Indy Server - Demo'
  ClientHeight = 331
  ClientWidth = 550
  Constraints.MinHeight = 331
  Constraints.MinWidth = 550
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Icon.Data = {
    3E01000000000100010010101000000000002801000016000000280000001000
    0000200000000100040000000000C00000000000000000000000000000000000
    0000000000000000800000800000008080008000000080008000808000008080
    8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
    FF0000000000000000000FFFF0DDDD0FFFF0000000DDDD00000000CC000DD000
    CC000000000DD00000000000000DD00000000000000DD00000000FFFF0DDDD0F
    FFF0000000DDDD00000000CC000DD000CC000000000DD0000000000000000000
    0000000000FFFF00000000000000000000000000000EE0000000000000000000
    000003C0000000000000000000008661000086610000FE7F0000024000000000
    0000000000008661000086610000F81F0000F81F0000F81F0000FC3F0000FC3F
    0000
  }
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  Position = poDesktopCenter
  ShowHint = True
  TextHeight = 13
  HorzScrollBar.Page = 549
  VertScrollBar.Page = 330
  Left = 262
  Height = 331
  Top = 165
  Width = 550
  object StatusBar1: TStatusBar
    Panels = <>
    Height = 20
    Top = 311
    Width = 550
  end
  object Panel1: TPanel
    Align = alLeft
    Caption = 'Panel1'
    ClientHeight = 311
    ClientWidth = 153
    FullRepaint = False
    TabOrder = 0
    Height = 311
    Width = 153
    object Panel2: TPanel
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      Caption = ' Client Connections'
      ClientHeight = 16
      ClientWidth = 151
      FullRepaint = False
      TabOrder = 0
      Left = 1
      Height = 16
      Top = 29
      Width = 151
    end
    object lbClients: TListBox
      Align = alClient
      ItemHeight = 13
      OnClick = lbClientsClick
      TabOrder = 1
      Left = 1
      Height = 265
      Hint = 'All currently active clients names are listed here.'
      Top = 45
      Width = 151
    end
    object ToolBar1: TToolBar
      AutoSize = True
      ButtonHeight = 26
      ButtonWidth = 31
      Caption = 'ToolBar1'
      EdgeBorders = [ebBottom]
      Flat = True
      Height = 28
      Images = ImageList1
      Indent = 8
      ParentColor = True
      TabOrder = 2
      Left = 1
      Height = 28
      Top = 1
      Width = 151
      object btnServerUp: TToolButton
        Caption = 'btnServerUp'
        ImageIndex = 0
        Style = tbsCheck
        OnClick = btnServerUpClick
        Left = 8
        Height = 26
        Hint = 'Start up server'
        Width = 31
      end
      object ToolButton1: TToolButton
        Caption = 'ToolButton1'
        ImageIndex = 1
        Style = tbsSeparator
        Width = 8
        Left = 39
        Height = 26
        Width = 8
      end
      object btnClients: TToolButton
        Caption = 'btnClients'
        Enabled = False
        ImageIndex = 3
        OnClick = btnClientsClick
        Left = 47
        Height = 26
        Hint = 'Refresh Client List'
        Width = 31
      end
      object btnKillClient: TToolButton
        Caption = 'btnKillClient'
        Enabled = False
        ImageIndex = 2
        OnClick = btnKillClientClick
        Left = 78
        Height = 26
        Hint = 'Disconnect Client'
        Width = 31
      end
      object btnPM: TToolButton
        Caption = 'btnPM'
        Enabled = False
        ImageIndex = 4
        OnClick = btnPMClick
        Left = 109
        Height = 26
        Hint = 'Private Message Client'
        Width = 31
      end
    end
  end
  object PageControl1: TPageControl
    ActivePage = TabSheet3
    Align = alClient
    TabIndex = 0
    TabOrder = 1
    Left = 153
    Height = 311
    Width = 397
    object TabSheet3: TTabSheet
      Caption = 'Server Information'
      ClientHeight = 285
      ClientWidth = 389
      ImageIndex = 2
      Height = 285
      Width = 389
      object Label3: TLabel
        Caption = 'Local DNS:'
        Color = clNone
        Left = 8
        Height = 13
        Top = 8
        Width = 55
      end
      object lblDNS: TLabel
        Caption = 'LocalHost'
        Color = clNone
        Left = 64
        Height = 13
        Top = 8
        Width = 48
      end
      object lblSocketVer: TLabel
        Anchors = [akRight]
        Caption = 'lblSocketVer'
        Color = clNone
        Left = 330
        Height = 13
        Top = 136
        Width = 60
      end
      object Label5: TLabel
        Anchors = [akRight]
        Caption = 'Socket Version:'
        Color = clNone
        Left = 255
        Height = 13
        Top = 136
        Width = 75
      end
      object Label4: TLabel
        Caption = 'Resident Port:'
        Color = clNone
        Left = 8
        Height = 13
        Top = 36
        Width = 67
      end
      object Label6: TLabel
        Caption = 'Inital entry message:'
        Color = clNone
        Left = 8
        Height = 13
        Top = 64
        Width = 96
      end
      object Label7: TLabel
        Caption = 'E-Motes'
        Color = clNone
        Left = 8
        Height = 13
        Top = 160
        Width = 39
      end
      object Label12: TLabel
        Caption = 'Syop Name:'
        Color = clNone
        Left = 168
        Height = 13
        Top = 36
        Width = 58
      end
      object seBinding: TSpinEdit
        MaxValue = 999999
        MinValue = 7
        OnChange = seBindingChange
        TabOrder = 0
        Value = 23
        Left = 80
        Height = 22
        Hint = 'Sets the port that the server will be running on.'#13#10'(The port will be bound by the system, so make'#13#10' sure that it isn''t allredi in use by another program)'#13#10'Some example ports are:'#13#10'  007 - Echo'#13#10'  023 - Telnet'#13#10'  025 - SMTP Mail'#13#10'  079 - Finger'#13#10'  080 - HTTP'#13#10'  119 - NNTP News'#13#10'  517 - Talk'#13#10'  '
        Top = 32
        Width = 65
      end
      object memEntry: TMemo
        Anchors = [akTop, akLeft, akRight]
        ScrollBars = ssBoth
        TabOrder = 1
        WordWrap = False
        Left = 16
        Height = 73
        Hint = 'This is the message that the user will see when they first log into the server.'#13#10'(This is after they have entered their user name)'
        Top = 80
        Width = 361
      end
      object memEMotes: TMemo
        Anchors = [akTop, akLeft, akRight, akBottom]
        TabOrder = 2
        Left = 16
        Height = 77
        Hint = 'These are simple Emotion Replacments that you can add to.  The format is as follows:'#13#10'<EMOTE>=<REPLACE TEXT>'#13#10'for example:'#13#10'/grin=%s grins.'#13#10'so if someone named Garry types /grin everyone else will see: Garry grins.'#13#10'%s will be replaced with the senders name.'
        Top = 176
        Width = 361
      end
      object edSyopName: TEdit
        Anchors = [akTop, akLeft, akRight]
        TabOrder = 3
        Text = 'Sysop'
        Left = 232
        Height = 21
        Hint = 'This is the name that will apear when you send a message.'#13#10'(This name cannot be changed while the server is online)'
        Top = 32
        Width = 145
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Client Information'
      ClientHeight = 285
      ClientWidth = 389
      ImageIndex = 1
      Height = 285
      Width = 389
      object Label8: TLabel
        Caption = 'Client Name:'
        Color = clNone
        Left = 3
        Height = 13
        Top = 3
        Width = 60
      end
      object Label9: TLabel
        Caption = 'Client DNS:'
        Color = clNone
        Left = 8
        Height = 13
        Top = 24
        Width = 55
      end
      object lblClientName: TLabel
        Caption = 'None Selected'
        Color = clNone
        Left = 64
        Height = 13
        Top = 3
        Width = 71
      end
      object lblClientDNS: TLabel
        Caption = 'None Selected'
        Color = clNone
        Left = 64
        Height = 13
        Top = 24
        Width = 71
      end
    end
  end
  object ImageList1: TImageList
    Height = 20
    Width = 20
    left = 496
    top = 8
    Bitmap = {
      [encoded data, 7424 characters]
      0A
    }
  end
  object puMemoMenu: TPopupMenu
    left = 501
    top = 100
    object Savetofile1: TMenuItem
      Caption = 'Save to file'
      OnClick = Savetofile1Click
    end
    object Loadfromfile1: TMenuItem
      Caption = 'Load from file'
      OnClick = Loadfromfile1Click
    end
  end
  object OpenDialog1: TOpenDialog
    Title = 'Open existing file'
    DefaultExt = '.txt'
    Filter = 'Text Files (*.txt)|*.txt|All Files    (*.*)|*.*'
    FilterIndex = 0
    InitialDir = 'c:\My Documents'
    Title = 'Open existing file'
    left = 8
    top = 84
  end
  object SaveDialog1: TSaveDialog
    Title = 'Save file as'
    DefaultExt = '.txt'
    Filter = 'Text Files (*.txt)|*.txt|All Files    (*.*)|*.*'
    FilterIndex = 0
    InitialDir = 'c:\My Documents'
    Title = 'Save file as'
    left = 40
    top = 84
  end
end
