function CallBackAccept(lpCallerId: LPWSABUF; lpCallerData : LPWSABUF; lpSQOS,lpGQOS : LPQOS; lpCalleeId,lpCalleeData : LPWSABUF;
   g : GROUP; dwCallbackData : DWORD ) : Integer; stdcall;
begin
 Result:=CF_Accept;
end;

function TClientsEventsThread.DoAccept:integer;
var tmpSocket: TSocket;
   i:integer;
begin
  i:=SizeOf(FNPC.FSockAddrIn); Result:=0;
  tmpSocket:=WSAAccept(FSocket, FSockAddrIn, @i, CallBackAccept, 1);
  if tmpSocket=SOCKET_ERROR then begin
     Result:=WSAGetLastError;
  end;
end;

procedure TZsNPCMembers.Execute;
//выполнение потока подключения/отключения клиентов
var Evt: LongWord;
   e: TNPCErrorInfo;
   Events: array[0..1] of THandle;  //массив событий для выхода из ожидания для потока
   NetworkEvents:TWSANetworkEvents;
   i:integer;
   tmpSocket: TSocket;
begin
 //опеределить события возобновления потока
 Events[0] := FInternalEvent; Events[1] := FWSAEvent;
 //выполнение
 while Not Terminated do begin
    Evt:=WSAWaitForMultipleEvents(2,@Events, false, WSA_INFINITE, False);
    case Evt of
    WAIT_OBJECT_0:      //внутреннее событие для отработки потока
         ResetEvent(Events[0]);
    WAIT_OBJECT_0 + 1:  //событие сокета подключение/отключение
         begin
            WSAEnumNetworkEvents(FSocket, Events[1], @NetworkEvents);
//WriteToFile('qqq.txt', inttostr(MyGetTickCount)+IfThen(FNPC.FAppType=npcatClient,' Клиент',' Сервер')+' - неизвестное событие '+IntToStr(NetworkEvents.lNetworkEvents)+' - '+InttoStr(ErrorCode));
            //запрос на подключение
            if (FNPC.FAppType=npcatServer) And
               (NetworkEvents.lNetworkEvents and FD_ACCEPT>0) then begin
               i:=NetworkEvents.iErrorCode[FD_ACCEPT_Bit];
               if i=0 then begin
                  //без ошибки
                  i:=SizeOf(FSockAddrIn);
                  tmpSocket:=WSAAccept(FSocket, @FSockAddrIn, @i, CallBackAccept, DWord(FNPC));
WriteToFile('qqq.txt', inttostr(GetTickCount)+' Сервер. Запрос подключения1 '+IntToStr(WSAGetLastError));
               end else begin
WriteToFile('qqq.txt', inttostr(GetTickCount)+' Сервер. Запрос подключения2 '+IntToStr(i));
               end;
            end;
            //подключение
            if (FNPC.FAppType=npcatClient) And
               (NetworkEvents.lNetworkEvents and FD_CONNECT>0) then begin
               i:=NetworkEvents.iErrorCode[FD_CONNECT_Bit];
               sleep(100);
WriteToFile('qqq.txt', inttostr(GetTickCount)+' Клиент. Подключение '+IntToStr(i));
            end;
         end;
    WAIT_FAILED:;       //ошибка
    WAIT_TIMEOUT:       //таймаут
    end;
 end;
end;

function WSAAccept( const s : TSocket; addr : PSockAddr; addrlen : PInteger; lpfnCondition : LPCONDITIONPROC; const dwCallbackData : DWORD ): TSocket; stdcall;