object set_game: Tset_game
  Left = 139
  Top = 107
  Width = 324
  Height = 550
  Caption = 'Ultra-SET Version BN1 - Jason Hunt '
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseUp = FormMouseUp
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Status: TStatusBar
    Left = 0
    Top = 485
    Width = 316
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Memo1: TMemo
    Left = 0
    Top = 400
    Width = 313
    Height = 65
    BorderStyle = bsNone
    TabOrder = 1
  end
  object Edit1: TEdit
    Left = 0
    Top = 464
    Width = 313
    Height = 21
    TabOrder = 2
    OnKeyPress = Edit1KeyPress
  end
  object MainMenu1: TMainMenu
    object File1: TMenuItem
      Caption = '&File'
      object NewGame1: TMenuItem
        Caption = '&New Game'
        OnClick = NewGame1Click
      end
      object Cheatmode1: TMenuItem
        Caption = '&Practice'
        OnClick = Cheatmode1Click
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object NetPlay1: TMenuItem
      Caption = '&Net Play'
      object ScreenName1: TMenuItem
        Caption = '&Screen Name'
        OnClick = ScreenName1Click
      end
      object Connect1: TMenuItem
        Caption = '&Connect'
        OnClick = Connect1Click
      end
      object Disconnect1: TMenuItem
        Caption = '&Disconnect'
        OnClick = Disconnect1Click
      end
      object Port1: TMenuItem
        Caption = '&Port'
        OnClick = Port1Click
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 32
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1024
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    Left = 72
  end
  object ServerSocket: TServerSocket
    Active = True
    Port = 1024
    ServerType = stNonBlocking
    OnAccept = ServerSocketAccept
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    Left = 112
  end
end
