1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TClient.FormCreate(Sender: TObject);
begin
tcpclient.BoundPort:=4048;
tcpclient.Host:=Host_IP;
Form1.Hide;
M_Chat.Lines.Add('Connecting...');
with TCPClient do begin
    Connect;
    try
    WriteInteger(1);
    M_chat.Lines.Add(ReadLn);
    WriteLn(Name_Client);
    Name_Host:=ReadLn;
    M_chat.Lines.Add(Name_Host+' ist der Server');
    finally
      Disconnect;
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure THost.TCPServerExecute(AThread: TIdPeerThread);
begin
with AThread.Connection do
begin
    if ReadInteger=1 then
      begin
      M_chat.Lines.Add('Incoming Connection');
      WriteLn('Connection accepted');
      Name_Client:=ReadLn;
      WriteLn(Name_Host);
      M_chat.Lines.Add(Name_Client+' ist dem Spiel beigetreten');
      Disconnect;
      end;
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TClient.B_ChatClick(Sender: TObject);
begin
with TCPClient do begin
    Connect;
    try
    WriteInteger(3);
    WriteLn(E_Chat.Text);
    M_chat.Lines.Add(Name_Client+': '+E_Chat.Text);
    E_Chat.Text:=' ';
    finally
      Disconnect;
    end;
  end;
end;