1:

Clients.AddItem(Socket.RemoteHost,Socket); // in die Liste					

1:

Clients.AddItem(edit1.text,Socket); // in die Liste					

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

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   Clients.AddItem(Socket.RemoteHost,Socket);                     //in die Liste
   ReceiveBuffer.Add('');                                         //zugehörigen Empfangspuffer anlegen
   Log.Lines.Add('Neuer Client verbunden: '+ Socket.RemoteHost);  //Meldung im Server-Protokoll
   SendUserList;
end;					

1:

Clients.Items.Strings[Clients.Items.Count-1]);					

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

// Befehle ausführen; die notwendige Anzahl Argumente ist garantiert
procedure TForm1.Execute(const Command: TCmdToken; Data: TStringList);
  var
    i: Integer;
begin
  case Command of // Befehle fallunterscheiden:
    //...
    cmdVER: // Erweiterung 4: Protokoll-Version des Servers auswerten
      // ist das ein Narses-Chat-Server? (will ich mit dem reden?)
      if (Data.Strings[1] = SRV_APP_ID) then // ja
        // passende Protokoll-Version? (kann ich mit dem reden?)
        if (Data.Strings[2] = PROTO_VER) then begin // ja
          // der Server ist OK; im Log vermerken und Nickname senden
          Log.Lines.Add(Data.Strings[1]+', PV: '+Data.Strings[2]+'.'+Data.Strings[3]);
          ClientSocket1.Socket.SendText(Syntax[cmdNICK].Text+#13+Nickname.Text+#13);					

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

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   Clients.AddItem(Socket.RemoteHost,Socket);   //in die Liste
   ReceiveBuffer.Add(''); //zugehörigen Empfangspuffer anlegen
   // <- Hier wollte ich die Log.Lines.Add-Anweisung einbauen, wie folgt:
   //Log.Lines.Add('Neuer Client verbunden: '+
      Clients.Items.Strings[Clients.Items.Count-1]);
   SendUserList;   //User-Liste an alle Clients senden
end;					

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

//Verbindung zum Server ist aufgebaut und bereit zum Senden/Empfangen
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   ReceiveBuffer := '';    //Empfangspuffer initialisieren
   ConnectionState := mcsOnline;   //Buttons anpassen
   Log.Clear;
   Log.Lines.Add('Verbunden mit: '+ClientSocket1.Socket.RemoteHost);
   Socket.SendText('NICK'+#13+Nickname.Text+#13); //noch den eigenen Nick senden
end;