anchor.diff:        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
  
positive.code: 
      procedure SetWSASendBufferSize(const Value: Cardinal);
  
    private    
  
      /// <summary>
      ///   ȡǰ
  
negative.code: end;
  
  procedure TDiocpCustomContext.DoConnected;
  var
    r:Boolean;
    lvError:Integer;
  begin
    // һЩ״̬ĳʼ
    FRequestDisconnect := false;
  