object SCForm: TSCForm
  Left = 217
  Top = 113
  Width = 519
  Height = 653
  Caption = 'SCForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 280
    Width = 510
    Height = 16
    Caption = 
      '                              Received Message                  ' +
      '            '
    Color = clMoneyGreen
    Font.Charset = ANSI_CHARSET
    Font.Color = clHotLight
    Font.Height = -16
    Font.Name = 'Batang'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    Left = 0
    Top = 0
    Width = 507
    Height = 16
    Caption = 
      '                                Send Message                    ' +
      '             '
    Color = clMoneyGreen
    Font.Charset = ANSI_CHARSET
    Font.Color = clHotLight
    Font.Height = -16
    Font.Name = 'Batang'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 560
    Width = 511
    Height = 35
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Memo1: TMemo
    Left = 0
    Top = 16
    Width = 505
    Height = 265
    TabOrder = 1
    OnKeyDown = Memo1KeyDown
  end
  object Memo2: TMemo
    Left = 0
    Top = 296
    Width = 505
    Height = 257
    Lines.Strings = (
      '')
    TabOrder = 2
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 16
    object File1: TMenuItem
      Caption = 'File'
      object Open1: TMenuItem
        Caption = 'Open File'
        OnClick = Open1Click
      end
      object SendFiles1: TMenuItem
        Caption = 'Send File'
      end
      object Save1: TMenuItem
        Caption = 'Save'
        OnClick = Save1Click
      end
      object Listen1: TMenuItem
        Caption = 'Listening'
        OnClick = Listen1Click
      end
      object Connect1: TMenuItem
        Caption = 'Connect'
        OnClick = Connect1Click
      end
      object Disconnect1: TMenuItem
        Caption = 'Disconnect'
        OnClick = Disconnect1Click
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1024
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnError = ClientSocket1Error
    Left = 112
    Top = 16
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 1024
    ServerType = stNonBlocking
    OnAccept = ServerSocket1Accept
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    Left = 136
    Top = 16
  end
  object OpenDialog1: TOpenDialog
    Filter = 'txt|*.txt'
    Left = 160
    Top = 16
  end
  object SaveDialog1: TSaveDialog
    Left = 184
    Top = 16
  end
  object OpenDialog2: TOpenDialog
    Left = 208
    Top = 16
  end
  object SaveDialog2: TSaveDialog
    Left = 232
    Top = 16
  end
end
