var
I:
Integer
;
ConnContext: TIdContext;
begin
with
IdTCPServer1
.
Contexts
.
LockList
do
try
for
I :=
0
to
Count -
1
do
begin
ConnContext := TIdContext(Items[I]);
ConnContext
.
Connection
.
IOHandler
.
Write
(...);
end
;
finally
IdTCPServer1
.
Contexts
.
UnlockList;
end
;
end
;