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

  var
    MyMessage,text: String;
    i: Integer;
    a:char;
begin

  // Nachricht lesen und davor die IP des Absenders setzen
  text:=Socket.ReceiveText;
  a:=text[1];
  text := copy(text,3,length(text)-1); //hab ich aus dem internet, funktioniert aber
  MyMessage := Socket.RemoteAddress+': '+text;                    

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

  Log.Lines.Add(MyMessage); // Nachricht lokal ausgeben
  // und an alle verbundenen Clients senden
  if a='0' then
  for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
    ServerSocket1.Socket.Connections[i].SendText(MyMessage)   
  else  ServerSocket1.Socket.Connections[( Ord(a) )].SendText(MyMessage);                    

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;