anchor.diff:        read FDirectoryOffset write FDirectoryOffset;
       property StartDiskNumber : Word
         read FStartDiskNumber write FStartDiskNumber;
  -    property ZipfileCommentLength : Word
  -      read FZipfileCommentLength write FZipfileCommentLength;
  -    property ZipfileComment : PChar
  +    property ZipfileComment : string
         read FZipfileComment write FZipfileComment;
       property IsValid : Boolean
         read GetValid;
  
positive.code: { -------------------------------------------------------------------------- }
  function TAbZipArchive.GetZipFileComment : string;
  begin
    Result := StrPas( FInfo.ZipFileComment );
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbZipArchive.LoadArchive;
  
negative.code: { -------------------------------------------------------------------------- }
  procedure TAbZipArchive.SetZipFileComment(const Value : string );
  begin
    FIsDirty := True;
    FInfo.FZipFileComment := Value;
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbZipArchive.TestItemAt(Index : Integer);
  