Отправка данных клиентам в Delphi

[Максим139]

Подскажите пожалуйста. Вот код при приёме данных, и потом я передаю их всем.
procedure TForm1.ServerSocketClientRead(Sende r: TObject;
Socket: TCustomWinSocket);
begin
for a:=0 to serversocket.socket.ActiveConnectio ns-1 do
begin
ServerSocket.Socket.Connections[a].sendtext(socket.ReceiveText());
end;
end;
Не знаю почему, но получает данные от всех только первый подключившийся. А если поставить просто ActiveConnections, то будет ошибка list index out of bounds (число подключённых). Что делать?
Заранее благодарен.