anchor.diff:    Result.FDiocpHttpServer := Self;
   end;
   
  +function TDiocpHttpServer.GetSession(pvSessionID:string): TDiocpHttpSession;
  +begin
  +  FSessionList.Lock;
  +  try
  +    Result := TDiocpHttpSession(FSessionList.ValueMap[pvSessionID]);
  +    if Result = nil then
  +    begin
  +      Result := FSessionClass.Create();
  +      FSessionList.ValueMap[pvSessionID] := Result;      
  +    end;
  +  finally
  +    FSessionList.unLock;
  +  end;
  +end;
  +
   procedure TDiocpHttpServer.GiveBackRequest(pvRequest: TDiocpHttpRequest);
   begin
     FRequestPool.EnQueue(pvRequest);
   end;
   
  +procedure TDiocpHttpServer.RegisterSessionClass(pvClass:TDiocpHttpSessionClass);
  +begin
  +  FSessionClass := pvClass;
  +end;
  +
   function TDiocpHttpCookie.ToString: String;
   begin
     Result := Format('%s=%s; Path=%s;', [self.FName, self.FValue, Self.FPath]);
   end;
   
  +constructor TDiocpHttpSession.Create;
  +begin
  +
  +end;
  +
  +
  +
   end.
  
positive.code:     /// </summary>
      procedure GiveBackRequest(pvRequest:TDiocpHttpRequest);
  
    public
      constructor Create(AOwner: TComponent); override;
  
      destructor Destroy; override;
  
  
  
  
negative.code:     /// յBuffer,д
      /// </summary>
      procedure WriteRawBuffer(const buffer: Pointer; len: Integer);
  
      procedure CheckCookieSession;
    protected
    public
      constructor Create;
      destructor Destroy; override;
  
      function GetSession: TDiocpHttpSession;
  
  
      /// <summary>
  