anchor.diff:        // ѽ(#13#10#13#10HTTPı־)
         if (CR = 2) and (LF = 2) then
         begin
  -        if FRequest.DecodeHttpRequestHeader = 0 then
  +        if FCurrentRequest.DecodeHttpRequestHeader = 0 then
           begin
             self.RequestDisconnect('ЧHttpЭ', self);
             Exit;
           end;
   
  -        if SameText(FRequest.FRequestMethod, 'POST') or
  -          SameText(FRequest.FRequestMethod, 'PUT') then
  +        if SameText(FCurrentRequest.FRequestMethod, 'POST') or
  +          SameText(FCurrentRequest.FRequestMethod, 'PUT') then
           begin
             // ЧPostֱӶϿ
  -          if (FRequest.FContextLength <= 0) then
  +          if (FCurrentRequest.FContextLength <= 0) then
             begin
               self.RequestDisconnect('ЧPOST/PUT', self);
               Exit;
  
positive.code:   /// </summary>
    TDiocpHttpServer = class(TDiocpTcpServer)
    private
      FOnDiocpHttpRequest: TOnDiocpHttpRequestEvent;
      FOnDiocpHttpRequestPostDone: TOnDiocpHttpRequestEvent;
  
  
negative.code: constructor TDiocpHttpServer.Create(AOwner: TComponent);
  begin
    inherited;
    FRequestPool := TBaseQueue.Create;
    KeepAlive := false;
    RegisterContextClass(TDiocpHttpClientContext);
  end;
  
  destructor TDiocpHttpServer.Destroy;
  begin
    FRequestPool.FreeDataObject;
    inherited;
  end;
  
  procedure TDiocpHttpServer.DoRequest(pvRequest: TDiocpHttpRequest);
  