anchor.diff:      try
         if FCurrentSendBufferLink = nil then
         begin
  -        UnLock; //ӽ
           if FSendBlock <> nil then
           begin
             FreeMemBlock(FSendBlock);
  
positive.code:     // ǰBufferΪnil ˳
      if FCurrentSendBufferLink = nil then
      begin
        UnLock; //ӽ
        if FSendBlock <> nil then
        begin
          FreeMemBlock(FSendBlock);
  
negative.code:             FreeMemBlock(FSendBlock);
              FSendBlock := nil;
            end;
            Exit;
          end;
          goto ReDo;
  