anchor.diff:  begin
     inherited Create;
     FData := TMemoryStream.Create();
  -  FHeader := TMemoryStream.Create();
  +  FHeader := TDValueNode.Create(vntObject);
     FCookies := TList.Create();
   end;
   
  
positive.code:     TObject(FCookies[i]).Free;
    end;
    FCookies.Clear();
  end;
  
  procedure TDiocpHttpResponse.RedirectURL(pvURL: String);
  
negative.code: 
      function EncodeHeader: String;
  
      function EncodeResponseHeader: string;
  
      /// <summary>
      ///   ͻ˽
      /// </summary>
  