Die Schleife des Verteilens sehe ich nicht im Code, ich vermute du machst das sequenziell.
Je größer die Anzahl der Clients, desto länger wird es dauern bis an alle nicht Daten verschickt worden sind.
Der Ansatz wäre, dieses in Threads zu erledigen. Dann können an mehrere gleichzeitig die Daten verschickt werden.
Hier muss man aber sehr auf gleichzeitigen Zugriff achten, bzw. sich voreinander schützen.
Schon alleine dein Code:
Delphi-Quellcode:
...
if AContext.Connection.Connected and (iKnownClient = -1) then
begin
SetLength(arClients,Length(arClients)+1);
arClients[Length(arClients)-1].sName := '';
...
ist nicht sicher. Diese Methode wird vom TidTcpipServer aus einem Thread gerufen.
D.h. wird zeitgleich aufgerufen, wenn Clients sind zeitgleich verbinden.
Ein SetLength() und deren Length() Verwendung kann dann schief gehen!
Ab XE7 gibt es in Delphi eine
Unit mit welcher man recht komfortabel parallele Schleifen bauen kann:
https://www.delphi-treff.de/tutorial...lel-library/2/
Geht aber natürlich auch mit ältere Versionen, dann dort aber zu Fuß per TThread's oder mit anderen Libraries.