anchor.diff:    end;
   end;
   
  +initialization
  +  {The LZMA routines are multithreaded and use the Delphi memory manager.}
  +  IsMultiThread := True;
   
   end.
  
positive.code:   props: CLzmaEncProps;
    header: array[0..LZMA_PROPS_SIZE + 7] of Byte;
    headerSize: size_t;
    i: Integer;
    inStreamRec: CSeqInStream;
    outStreamRec: CSeqOutStream;
  begin
  
negative.code:     headerSize := LZMA_PROPS_SIZE;
  
      RINOK(_LzmaEnc_WriteProperties(enc, @header[0], headerSize));
  
      PInt64(@header[headerSize])^ := fileSize;
      Inc(HeaderSize, SizeOf(Int64));
  
      if outStream.Write(header, headerSize) <> headerSize then
        RINOK(SZ_ERROR_WRITE)
      else
  