Отправка сообщения от сервера всем клиентам

[Cold_Night]

Привет всем! У меня проблема, не получается отправить сообщение всем клиентам, подключенным к серверу. Использую TServerSocket и TClientSocket. Вот моя процедура

procedure SendToAll(Mess: string);
var C: Integer;
begin
try
  with Form1 do
  begin
 C:=ServerSocket1.Socket.ActiveConnections;
   ServerSocket1.Socket.Connections[C].SendText(Mess);
   end;
   except;
   end;
end;

Этот код не работает. Подскажите, пожалуйста, как можно исправить ситуацию и в чём моя ошибка. Заранее спасибо =)

[Terran]

Определяйте количество подключённых клиентов в цикле:

Procedure SendToAll(Mess: String);
Var
C,I: Integer;
Begin
Try
With Form1 Do
Begin
For I:=0 To ServerSocket1.Socket.ActiveConnections-1 Do
ServerSocket1.Socket.Connections[I].SendText(Mess);
End;
Except;
End;
End;

[Cold_Night]

Спасибо, Вы мне очень помогли