1:
2:
3:
4:
5:
6:
7:
8:

procedure TFormx.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  Msg          : String;
begin
  Msg := athread.Connection.ReadLn('',5);
  if Msg = '' then exit // nix angekommen
  ...
end;					

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

var list         : TList;
    count       : integer;
    msg         : String;
begin

msg := ....
...
try
 List := idtcpServer1.Threads.LockList;

  for Count := 0 to List.Count -1 do
     try
      TIdPeerThread(List.Items[Count]).Connection.WriteLn(Msg);
     except
      TIdPeerThread(List.Items[Count]).Stop;
     end;
     finally
      idtcpServer1.Threads.UnlockList;
     end;

...					

1:
2:
3:
4:

try
 idtcpclient1.WriteLn('Hello World'); 
except {irgendwas funzt nicht} end;
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var msg : string;
begin
try
if not idtcpclient1.Connected then exit;

msg := idtcpclient1.ReadLn('',5);
if msg = '' then exit;
...
except {irgendwas funzt nicht} end;
end;					

1:

idtcpserver1.bindings.DefaultPort := 80;					

1:

Memo1.Lines.Add(AThread.Connection.AllData);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TFormx.IdTCPServer1Execute(AThread: TIdPeerThread); 
var 
  Msg : String; 
begin 
  Msg := athread.Connection.ReadLn('',5); 
  if Msg = '' then exit // noch nichts da...
  memo1.lines.add(msg);
  ... 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure SendText(Socket:TCustomWinSocket;Text:string);
begin
 try
  while (Socket.Connected) and (Socket.SendText(Text)=0) do
  begin
   application.processmessages;
  end;
 except
 end;
end;