1:

Client: array [1..maxBenutzer] of String;					

1:

Client: array [1..maxBenutzer] of TClientSocket;					

1:
2:
3:

      Port := Port;   //Port ist eine Konstante
      Host := Benutzer[i].IP;
      Open;					

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

begin
  for i := 1 to ClientAnzahl do
  begin
      
      
  
  end;					

1:
2:
3:

for i := 1 to ClientAnzahl do
    TClientSocket(FindComponent('Client' +
  IntToStr(i))).Socket.SendBuf(sChat,sizeof(sChat));					

1:

Client: Array [1..maxBenutzer] of TClientSocket;					

1:
2:

For Idx := 1 To maxBenutzer Do
  Client [Idx] := tClientSocket.Create (...);					

1:
2:
3:
4:
5:

For Idx := 1 To maxBenutzer Do
  With Client [Idx] Do
    Begin
      {...}
    End;