// При попытке соединения даем возможность проверить какие либо параметры
 function ConditionProc(lpCallerId: LPWSABUF; lpCallerData: LPWSABUF;
   lpSQOS, lpGQOS: LPQOS; lpCalleeId, lpCalleeData: LPWSABUF;
   g: DWORD; dwCallbackData: DWORD ): Integer; stdcall;
 var
   ClientIP: String;
   zPort: Word;
   CanConnect: Boolean;
 begin
   ClientIP := inet_ntoa(PSockAddrIn(lpCallerId.buf).sin_addr);
   zPort := htons(PSockAddrIn(lpCallerId.buf).sin_port);
   Result := CF_ACCEPT;
   CanConnect := True;
   if Assigned(TGSServerSocket(dwCallbackData).FConnecting) then
     TGSServerSocket(dwCallbackData).FConnecting(nil, ClientIP, zPort, CanConnect);
   if not CanConnect then
     Result := CF_REJECT;
 end;

...

       Size := SizeOf(FAccept);
       Opt := 1;
       setsockopt(FServer, SOL_SOCKET, SO_CONDITIONAL_ACCEPT, @Opt, SizeOf(Opt));
       Client := WSAAccept(FServer, @FAccept, @Size, @ConditionProc, Integer(Self));
       if Client = INVALID_SOCKET then
       begin
         Error(WSAGetLastError,
           'TGSCustomServerSocket.GSocketWndProc > FD_ACCEPT [WSAAccept = INVALID_SOCKET]');
         Exit;
       end;

...