idtcpserver主动向客户端发送数据

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;