object Hauptformular: THauptformular
  Left = 361
  Top = 159
  BorderStyle = bsDialog
  Caption = 'Client / Server'
  ClientHeight = 152
  ClientWidth = 266
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  PixelsPerInch = 96
  TextHeight = 13
  object Server: TButton
    Left = 8
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Server'
    TabOrder = 0
    OnClick = ServerClick
  end
  object Client: TButton
    Left = 96
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Client'
    TabOrder = 1
    OnClick = ClientClick
  end
  object ServerDicht: TButton
    Left = 8
    Top = 48
    Width = 75
    Height = 25
    Caption = 'ServerDicht'
    Enabled = False
    TabOrder = 2
    OnClick = ServerDichtClick
  end
  object ClientDicht: TButton
    Left = 96
    Top = 48
    Width = 75
    Height = 25
    Caption = 'ClientDicht'
    Enabled = False
    TabOrder = 3
    OnClick = ClientDichtClick
  end
  object ClientText: TEdit
    Left = 8
    Top = 88
    Width = 161
    Height = 21
    TabOrder = 4
  end
  object ServerText: TEdit
    Left = 8
    Top = 120
    Width = 161
    Height = 21
    Anchors = []
    TabOrder = 5
  end
  object Senden: TButton
    Left = 184
    Top = 88
    Width = 75
    Height = 25
    Caption = 'Senden'
    Enabled = False
    TabOrder = 6
    OnClick = SendenClick
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Host = 'localhost'
    Port = 8080
    OnConnect = ClientSocketConnect
    OnRead = ClientSocketRead
    Left = 192
    Top = 8
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 8080
    ServerType = stNonBlocking
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    Left = 232
    Top = 8
  end
end