anchor.diff:      Item.LoadFromStream(FStream);
       except {!!.05 [ 800130 ] ZIP - Potential Memory Leak }
         Item.Free;
  -      Item := nil;
         raise;
       end;
       if IsExecutable then
  
positive.code:     end;
  {$ENDIF}
  {!!.03 - End Added }
      DiskFileName := StrPas(Buff);
      StrPCopy(Buff, FixName(FileSpec));
      FileName := StrPas(Buff);
      RelativeOffset := 0;
    end;
  end;
  
negative.code:         {!!! write spanning signature here?}
        end
        else
         begin
  // !!.05 Test to use TFileStream if not Spanned
  //        FStream := TAbSpanStream.Create(FArchiveName,
  //          fmOpenWrite or fmShareDenyWrite, mtLocal,
  //            FSpanningThreshold);
          FStream := TFileStream.Create(FArchiveName,
            fmOpenReadWrite or fmShareDenyWrite);
         end;
  
        try
          if (FStream is TAbSpanStream) then
           begin
            TAbSpanStream(FStream).OnRequestImage :=
                                   DoSpanningMediaRequest;
            TAbSpanStream(FStream).OnArchiveProgress := DoArchiveSaveProgress; {!!.04}
  //        TAbSpanStream(FStream).SpanNumber := SCurrentImage;              {!!.01}
           end;
  
          FStream.Size := 0;
          { copy temporary archive to the stream }
          if FStream.Position <> 0 then
            FStream.Position := 0;
          if (FStream is TAbSpanStream) then
             TAbSpanStream(FStream).ArchiveTotalSize := NewStream.Size;     {!!.04}
          FStream.CopyFrom(NewStream, NewStream.Size);
        except
          raise EAbBadStream.Create;
  