anchor.diff:  constructor TIocpClientContext.Create;
   begin
     inherited Create;
  +  FWSARecvRef := 0;
  +  
     FCreateSN := InterlockedIncrement(__create_sn);
   
     FDebugStrings := TStringList.Create;
  
positive.code:     FRequestDisconnect:Boolean;
  
  
      FManulPostWSARecvRequest:Boolean;
  
  
  
      FDebugInfo: string;
  
negative.code:   Result := FOwner.GetSendRequest;
    Assert(Result <> nil);
    Result.FClientContext := self;
  end;
  
  procedure TIocpClientContext.IncRecvRef;
  var
    j:Integer;
  begin
    j := InterlockedIncrement(FWSARecvRef);
    Assert(j > 0, 'error IncRecvRef');
  end;
  
  
  