anchor.diff:    DataRead    : Int64;
     Total       : Int64;
     Abort       : Boolean;
  -  Buffer      : array [0..4095] of byte;
  +  Buffer      : array [0..8191] of byte;
     DestStrm    : TStream;  { place holder for Output, either direct or encrypted }
   begin
     { setup }
  
positive.code:  { do nothing to Buff }
  {$ELSE}
      if (Item.VersionMadeBy and $FF00) = 0 then begin
        OEMToAnsi(Buff, Buff);
      end;
  {$ENDIF}
  {!!OEM - End Added }
      { Converting file names causing problems on some systems, take hands off approach }
      {  OEMToAnsi(Buff, Buff);  }
      UncompressedStream := TFileStream.Create(StrPas(Buff),
        fmOpenRead or fmShareDenyWrite );
      {Now get the file's attributes}
      Item.ExternalFileAttributes := AbFileGetAttr(StrPas(Buff));
      Item.UncompressedSize := UncompressedStream.Size;
    finally {SaveDir}
      ChDir( SaveDir );
    end; {SaveDir}
  
negative.code: procedure AbZip( Sender : TAbZipArchive; Item : TAbZipItem;
                   OutStream : TStream );
  var
    SaveDir : string;
    DateTime : LongInt;
    FileAtributes: Integer;
    ZipArchive : TAbZipArchive;
    UncompressedStream : TStream;
    Buff : array [0..MAX_PATH] of AnsiChar;
  procedure AddDirectory();
  var
  	sr: TSearchRec;
  begin
      Item.CRC32 := 0;
      Item.VersionNeededToExtract := 20;
      Item.CompressionMethod := cmStored;
      //itemFileName := AbAddBackSlash(Item.DiskFileName);
  
  
      //Item.DiskFileName := itemFileName;
      Item.CompressedSize := 0;
      Item.VersionMadeBy := (Item.VersionMadeBy and $FF00) + 20;
      Item.ExternalFileAttributes := AbFileGetAttr(Item.DiskFileName);
  
  
      FileAtributes := FindFirst(Item.DiskFileName, faAnyFile, sr);
      try
          if (FileAtributes <> 0) then begin
              DateTime := sr.Time;
              Item.LastModFileTime := Word(DateTime);        // Get the Lo Part
              Item.LastModFileDate := Word(DateTime shr 16); // Get the Hi Part
  
          end;
      finally
          FindClose(sr);
      end;
       //AbFixName(itemFileName);
       //Item.FileName := itemFileName;
  
  end;begin
    ZipArchive := TAbZipArchive(Sender);
    GetDir(0, SaveDir);
    try {SaveDir}
  