anchor.diff:  { -------------------------------------------------------------------------- }
   function TAbZipArchive.GetZipFileComment : string;
   begin
  -  Result := StrPas( FInfo.ZipFileComment );
  +  Result := FInfo.ZipFileComment;
   end;
   { -------------------------------------------------------------------------- }
   procedure TAbZipArchive.LoadArchive;
  
positive.code:       read FDirectoryOffset write FDirectoryOffset;
      property StartDiskNumber : Word
        read FStartDiskNumber write FStartDiskNumber;
      property ZipfileCommentLength : Word
        read FZipfileCommentLength write FZipfileCommentLength;
      property ZipfileComment : PChar
        read FZipfileComment write FZipfileComment;
      property IsValid : Boolean
        read GetValid;
  
negative.code: end;
  { -------------------------------------------------------------------------- }
  procedure TAbZipDirectoryFileFooter.LoadFromStream( Stream : TStream );
  var
    iZipfileCommentLength: Word;
    sAnsi: Ansistring;
  begin
    with Stream do begin
      Read( FSignature, sizeof( FSignature ) );
  