anchor.diff:      lvSize := pvStream.Size;
       if lvRange.VEnd = 0 then
       begin
  -      lvRange.VEnd := lvRange.VStart + SEND_BLOCK_SIZE - 1;
  +      lvRange.VEnd := lvRange.VStart + SEND_BLOCK_SIZE * 10 - 1;
       end;
   
       if (lvRange.VStart < lvSize) then
  
positive.code:     r := self.FCurrentStream.Read(lvBuffer^, l);
      AddRef(lvBuffer);
      Dec(self.FCurrentStreamRemainSize, r);
      PostWSASendRequest(lvBuffer, r, False, BLOCK_STREAM_BUFFER_TAG);
    finally
      self.UnLock;
    end;
  
negative.code:   // 
    ClearTaskListRequest;
  
    if FCurrentStream <> nil then
    begin           // ж˷
      FCurrentStream.Free;
      FCurrentStream := nil;
    end;
    FCurrentStreamRemainSize := 0;
    FCurrentStreamEndAction := 0;
  
  
    inherited DoCleanUp;
  end;
  