Hi,
I'm trying to do a chat application and I've got a problem with sending messages. That's what happens:

A user writes something and sends it to the server. Then the server (should) sends it to the other users, see code:

-
For A = 0 to WS.Count - 1
If WS(A).State = sckConnected then
WS(A).SendData iText
EndIf
Next
-

Well, what really happens is that only the last WS sends the text.
I also know that if you send every second one string that it works... But it should be FAST.

------------------
[email protected]
...
Every program can be reduced to one instruction which doesn't work.