anchor.diff:      FFDICabInfo      : FDICabInfo;
       FErrors          : CabErrorRecord;
       FItemInProgress  : TAbCabItem;
  +    FItemStream      : TStream;
       FIIPName         : string;
       FItemProgress    : DWord;
       FNextCabinet     : string;
  
positive.code:   NextCabName : string;
  begin
    Result := 0;
    Archive :=pfdin^.pv;
    case fdint of
      FDINT_Copy_File :
        begin
          if (string(pfdin^.psz1) = Archive.FItemInProgress.FileName) then
            Result := FileCreate(Archive.FIIPName)
          else
            Result := 0;
        end;
  
negative.code: function FDI_FileOpen(lpPathName: PAnsiChar; Flag, Mode: Integer) : Integer;
    cdecl;
    {open a file}
  var
    Handle : Integer;
  begin
    Handle := FileOpen(string(lpPathName), fmOpenRead or fmShareDenyWrite);
    if Handle <> -1 then
      Result := Integer(TFileStream.Create(Handle))
    else
      Result := -1;
  end;
  { -------------------------------------------------------------------------- }
  function FDI_FileRead(hFile: HFILE; lpBuffer: Pointer; uBytes: UINT) : UINT;
    cdecl;
    {read from a file}
  begin
    Result := TStream(hFile).Read(lpBuffer^, uBytes);
  end;
  { -------------------------------------------------------------------------- }
  function FDI_FileWrite(hFile: HFILE; lpBuffer: Pointer; uBytes: UINT) : UINT;
    cdecl;
    {write to a file}
  begin
    Result := TStream(hFile).Write(lpBuffer^, uBytes);
  end;
  { -------------------------------------------------------------------------- }
  procedure FDI_FileClose(hFile : HFILE);
    cdecl;
    {close a file}
  begin
    TStream(hFile).Free;
  end;
  { -------------------------------------------------------------------------- }
  function FDI_FileSeek(hFile : HFILE; Offset : Longint; Origin : Integer) : Longint;
    cdecl;
    {reposition file pointer}
  begin
    Result := TStream(hFile).Seek(Offset, Origin);
  end;
  { -------------------------------------------------------------------------- }
  function FDI_EnumerateFiles(fdint : FDINOTIFICATIONTYPE;
  