anchor.diff:  
   { -------------------------------------------------------------------------- }
   procedure TAbZipDirectoryFileFooter.SaveToStream( Stream : TStream );
  -begin
  +var
  +  iZipfileCommentLength: Word;
  +  sAnsi: Ansistring;
  +begin
  +  iZipfileCommentLength := Length(FZipFileComment);
  +  sAnsi := AnsiString(FZipfileComment);
     with Stream do begin
       Write( FValidSignature, sizeof( FValidSignature ) );
       Write( FDiskNumber, sizeof( FDiskNumber ) );
  
positive.code: end;
  { -------------------------------------------------------------------------- }
  procedure TAbZipDirectoryFileFooter.LoadFromStream( Stream : TStream );
  begin
    with Stream do begin
      Read( FSignature, sizeof( FSignature ) );
  
negative.code: begin
    inherited Create;
    FValidSignature := Ab_ZipEndCentralDirectorySignature;
  end;
  { -------------------------------------------------------------------------- }
  destructor TAbZipDirectoryFileFooter.Destroy;
  begin
    inherited Destroy;
  end;
  { -------------------------------------------------------------------------- }
  