anchor.diff:  
       procedure SetWSASendBufferSize(const Value: Cardinal);
   
  -  private    
  +  private
  +    FNoDelayOption: Boolean;
   
       /// <summary>
       ///   ȡǰ
  
positive.code:     procedure BindingEngine(const pvEngine:TIocpEngine);
  
      function GetDebugString: String;
  
    public
      procedure IncOperaOptions(const pvFlag:Integer);
  
negative.code:       InnerAddToDebugStrings(Format('[%s]:*(%d):(%d:objAddr:%d) %s',
          [NowString, FReferenceCounter, self.SocketHandle, IntPtr(Self), 'DoConnected:ӵб']));
  
        if FOwner.FNoDelayOption then
        begin
          r := FRawSocket.SetNoDelayOption(True);
          if not r then
          begin
            lvError := GetLastError;
            FOwner.logMessage('FRawSocket.SetNoDelayOption, Error:%d', [lvError], CORE_LOG_FILE);
          end;
        end;
  
        if self.LockContext('OnConnected', Self) then
        try
  