anchor.diff:  
   procedure TAbTarItem.SetUncompressedSize(const Value: Int64);
   var
  -  S : string;
  +  S : AnsiString;
   begin
     if FTarItem.ItemReadOnly then { Read Only - Do Not Save }
       Exit;
  
positive.code: 
  procedure TAbTarItem.SetUserID(const Value: Integer);
  var
    S : string;
  //  I: Integer;
  begin
    if FTarItem.ItemReadOnly then { Read Only - Do Not Save }
  
negative.code: begin
    inherited Create(FileName, Mode);
    FArchReadOnly :=  False;
    FArchFormat := V7_FORMAT;  // Default for new archives
  end;
  
  destructor TAbTarArchive.Destroy;
  begin
    inherited Destroy;
  end;
  
  function TAbTarArchive.CreateItem(const FileSpec: string): TAbArchiveItem;
  var
  