Probelem z socketami

witam
Podczas wysylania pakietu do socketów wywala mi błąd (#10038) .
[code]procedure SendAll(s:string);
var
ktory,liczba: integer;
begin
liczba := sck.Count;
//liczba := main.server.Socket.ActiveConnections;
ktory := 0;
if liczba>0 then
begin
repeat
if main.Server.Socket.Connections[ktory].Connected then
main.Server.Socket.Connections[ktory].SendText(main.Code(Send(s)));
if ktory < liczba then
ktory := ktory +1;
until ktory=liczba;
end;
end;
[/code]
Co mam zrobic zeby sprawdzic czy dany uchwyt nalezy do Socket ?

Jeśli chcesz wysłać wszystkim tekst robisz po prostu zwykłą pętle:

 Procedure TFrm.SendAll(S:String);
  var
    i:Integer;
  begin
   for i:=0 to Serwer.socket.activeconnections-1 do
       begin
          Serwer.socket.connections[i].sendtext(s);
      end;
end;

{Pisałem z głowy więc jak coś to popraw jakieś literówki}
A z tymi uchwytami nie rozumiem o co ci chodzi...
Ale wystarczy to pobrac przez
Serwer.socket.connections[i].SocketHandle; //To jest integer