procedure TServer.ServerSocket2ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
 anzahl:Integer;
  i:Integer;
  r_text:String;
begin

  // Routine für Joinen
 if (flag_connected = True) then
  begin
  r_text:=Socket.ReceiveText;
  users.Items.Add(r_text);
  Memo1.Lines.add('Username: '+r_text);
  flag_connected := False;
  end;

 if (Socket.ReceiveText = 'New_join') then
  begin
  Memo1.Lines.add(Timetostr(now)+': New user connected');
  flag_connected := True;
  end;
   // Ende Routine für Joinen



 if (flag_quit = True) then
  begin

   for i := 0 to users.Items.Count -1 do
    begin
    if (users.Items[i] = Socket.ReceiveText) then
    users.items.Delete(i);
    end;

  Memo1.Lines.add('Username: '+Socket.ReceiveText);
  flag_quit := False;
  end;


 if (Socket.ReceiveText = 'New_quit') then
  begin
  Memo1.Lines.add(Timetostr(now)+': User quit');
  flag_quit := True;
  end;



end;

Nachricht := 'New_join';
delay(500);
ClientSocket2.Socket.SendText(Nachricht);
Nachricht := nick.Text;
delay(500);
ClientSocket2.Socket.SendText(Nachricht);