Ошибка "Asynchronous socket error 10053"

[Neexuus]

Помогите пожалуйста криворукому человеку.
Есть программа "Общя доска" типо пейнта по сети.
При отправлении данных при 2-ух и более клиентах подключенных к серверу происхдит ошибка "asynchronous socket error 10053", а когда один клиент подключен к серверу то все работает замечательно.

Это процедура обработки сообщения при получении сервером/клиентом

procedure TFmain.SSServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
i:integer;
mes:string;

mesrecresiv:tmesrec;
begin

Socket.ReceiveBuf(mesrecresiv,Socket.ReceiveLength);
with mesrecresiv do begin
drow(startxyrec,nowxyrec,impaint,instrrec,colorrec,penmoderec,
                                                        penstylerec,brushstrec);
end;


For i := 0 to SSServer.Socket.ActiveConnections - 1 do
        if SSServer.Socket.Connections[i].socketHandle <> Socket.SocketHandle then
       SSServer.Socket.Connections[i].SendBuf(mesrecresiv,sizeof(mesrecresiv)) ;
end;


procedure TFmain.csClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
mes:string;
mesrecresiv:tmesrec;
begin

Socket.ReceiveBuf(mesrecresiv,Socket.ReceiveLength);
with mesrecresiv do begin
drow(startxyrec,nowxyrec,impaint,instrrec,colorrec,penmoderec,
                                                        penstylerec,brushstrec);
end;
end;

Код процедур отправки данных с сервера/клиента

Procedure TFmain.sendtoserver();
var i:integer;
begin

If  serverconected  then begin
    csclient.Socket.SendBuf(mesrec,sizeof(mesrec));
end;

if clientconnected then begin
  for i:=0 to SSServer.Socket.ActiveConnections-1 do begin
  SSServer.Socket.Connections[i].SendBuf(mesrec,sizeof(mesrec))
   end;
 end;
end;

Это структура записи которая отправляется

Tmesrec= record
    startxyrec:tpoint;
    nowxyrec:tpoint;
    brushstrec:TBrushStyle;
    penstylerec:TPenStyle;
    colorrec:TColor;
    instrrec:Tinstr;
    penmoderec:TPenMode;
    end;

[oleg kutkov]

А сервер у вас многопоточный? Т.е. расчитан на подключение нескольких клиентов и обработку данных от них?
Мне кажется что нет и как следствие подключение более одного клиента вызывает "кашу" на сокете и ос сбрасывает соединение.

[Neexuus]

Дело в том что такая ошибка возникает когда используются только определенные инструменты, те это какрандаш, стерка, или кисть когда происходит отправление сообщения на каждое движение мыши при зажатой клавиши мыши даже когда происходит рисование только на одном из приложений. А когда присходит рисование фигур линия, квадрт, круг и прочее сообщение отправляется при отпускании клавиши мыши то все работает нормальна при любом количестве клиентв.

[Neexuus]

Все, уже разобрался была ошибка выделения памяти при приеме/передачи через sendbuf

[mavrodi]

Сообщение от Neexuus

Все, уже разобрался была ошибка выделения памяти при приеме/передачи через sendbuf

эххх, подксказал бы в чем было дело)))